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Avant-propos 


Les jeux présentés dans ce livre utilisent toutes les 
possibilités de votre ATARI : son, couleurs, graphiques 
"player-missile". Pour cette raison, ces programmes ne 
fonctionnent que sur l'ordinateur pour lequel ils ont été 
conçus et sont difficilement adaptables à des matériels 
différents. 

Au-delà du jeu lui-même, l'étude de ces programmes vous 
enseignera de nombreuses techniques de programmation 
particulières à votre ATARI qui vous seront très utiles pour 


développer vos propres programmes. 


ES: 


Table des matières 


Parachutiste * 

Morpion en trois dimensions 
Grand Prix * 

Atterrissage sur la Lune * 
Décision 

Cambriolage 

Tanks * 

Chiffres 

Grand Prix 2 * 

Blitz * 

Alien 

Puzzle 

Mission spatiale * 
Réflexes * 


* Ces jeux utilisent les manettes de jeux. 


PARACHUTISTE 


Ce programme utilise des caractères redéfinis. Le but du 
jeu est d'obtenir le maximum de points en dix sauts. 

Vous êtes dans un avion qui passe en haut de l'écran. Pour 
sauter, il vous suffit d'appuyer sur le bouton rouge du 
manche à balai ; vous êtes alors en chute libre. Lorsque 
vous estimez être assez bas, dirigez le manche à balai vers 
le bas et votre parachute s'ouvrira. 

Vous aurez un bonus lorsque vous réussirez à atterrir sur 
l'aire prévue à cet effet. Ce bonus dépend du moment auquel 
vous déployez votre parachute. Plus tard vous l'ouvrirez, 
plus votre score sera élevé. Attention, il y a une limite à 
partir de laquelle le parachute ne s'ouvre plus. Bonne 
chance! 


RE PARACHUTE- ECERIT FH ER 
RER XX PAUL BURN DECEMBRE 1582 FX 

IF PEEKL 243 =PEEKS 166 1-S THEN 46 
GOSUE 198988: REM INITIALISATIOH 

DIM QUIONEE 1 3, HOME 1 X, CHUTESS 1 3, BASE# 
(13-LIGNES$S 19 

56 ALITONS=CHRSÉ ASE LU 128 re HOM= NI ME LT 
GNES=CHESE ASE PRES à 

33 FOR SAUT=i TO 18 

64 GRAPHICS 17: SETCOLOR 2,12,18:POKE 167: 
Eds POKE S3F 74,64 

Aus È ads REN * MODE GRAPHIQUE "PL 


ON co 


Æn eg D gouts 
Rs ot 


P à 


JEUX EN BASIC SUR ATARI 


PÈRE 333:46:REN # RESOLUTION DOUBLE L 


Fi 


POKE_ S42r79,PEEKC 294 3:REM # LOCALISATI 
ON DES GRAPHIQUES PM # 

64 POKE 53236,3:POKE 53257 ,3%REN # TAILL 
E DES HUQGES COUADRUPLE à # 

63 POKE ‘f4,5:POKE FA5,143REM # COULEUR 
DES NUAGES # 


La) 111 


Ta ti Ta 
1 
a 
Lx 


LEE 


56 #3=INTÉ BND A TELE F5: POKE 
EN #* POSITION NUAGE 1 ALEBTOIR 
Gr #4=INTÉ RNDE GK 106 +75: POKE 33 += 


1 X* POSITION NUAGE £ BLEATOIRE ## 
3 POKE 623,1:RENM # PRIORITE ENTRE P LANS 


GRÉPHIQUES € 
53 POKE S32F3,235:REN # FRE FIBESOS LES 
EGISTRES DE DCETECTION DE COLLISION # 
FR PÜKE PSS -PEEKSC 203 5: SETCOLOR 223,4: REN 
AE SUR JEU CARACTERE RAM AU LIEU D 
H de 

A= ls BHSES= "#4": CHUTES=CHREE ASCE MXN 12 


mal 


0 ca 
LM 5 2 


el Pitt do Cf: 
dc Ex 


REF ## LIGNE DE BASE ## 
Pas P=h TO 19 

POSITION P,25 

PRINT #E:LIGHES; 

HEXT P 


CN | 


ÉRSE=INTE RNDE GIE MS 
ia Re BRSE ZE 
4 #6 EASE# 

DE PEN : EE ESLICLE PRINCIPALE ## 

i FO SITION HeBiT HESOUIONS: tn #— 
7 #65" 

H=EHIsIF K#£1S THEN 156 

POSITION #1 Bi #65" "ik 

: 


Un 
En CE 
LL] 


Ce 


En is 


a THEN K3= 2e 
26 THEN xd=2n 
5248, #3: POKE Dies xd 


PARACHUTISTE 


26 IF HOM=E END S2=6 THEN GOSUE 1668 
285 IF HOM=1 THEN LOCBTE K2,#72,2 

IF HOME THEN POSITION K2,72:7 #6:Hi 
Fi 

22 IF CHUTE=1 THEN POSITION our F2-i:T # 
G:CHUTESS FOR P=i TO IGG:NEXT PF 


22 IF PEEK(S3252X 29 OR PEEK( 53253 X >9 


24i Oy=! ; ÉCSE 

so Sf= 15 AND "HOMS 1 AKD CHUTE=S BND 
THEN CHUTE=I:FOR T=8 TO Si: SOUND &, 

ASISSNEET TISOUND 6,6,6,6s:C2rs 

IF HOME THEN 165 

POSITION Désir #6; 

POSITION Oksv2-1s% #65" " 

SE GOTO 166 

BEM #&# OUVERTURE OU) PORACHUTE ## 

An MOM= 1: PESTE KES 

H FÜR P=5E TO STEP —2: SOUND W,P.,129 

SsHEXT P:sSOUND B.8.8,6: RETURN 


tonte il 
re 
= 


Si 
mt! 


Pa D ro rat 


CREUSE 


DRE 


LM ps 151 


IF Z=OSCI EBNSES+: THEN GOTO 3686 
FÜR G=& TO ÊSS 
5 SOUND GeGr1@21S:POKE F8 .6 
2H NEXT G 
3 FOR G=2SS T0 & STEP —5 

Shi SOUNDC B,6.:18,15:POKE 7H, [E 
HEXT G 
SOUND 66,85 
POSITION SH: POKE 748.184 


es 
Eat St 


Fan Pl pote pete pp 


EU M CE te je EN Cr 


4 ete 
= 


2995 7 #6 “SCORE: " SCORE 
. 4 + HET HÉIUTOPES STORT POLE CHI 


} 

La 

ny 
LE 


POKE 5:3279,8 

G IF PEEKCSZ2279 36 THEN 2116 
2138 FUN 

2666 POSITION 6,6 

3818 IF CHUTE=1 THEN 35684 


4 JEUX EN BASIC SUR ATARI 


2 #3" LQUS N'AUEZ PAS" 
F #55" UOTRE PARACHUTE OUVERT 


qe, 


ON De | 
in 
1 


Eu) Mi 


e HE: F #E ; ÊIHCH ss . 


| 
RARE) 
IA 
at 

1 

Fi + 

Ti 


Lai CE at io 


FOR P=à TO 158 STEP 5 
SOUHDC G,F,12,15 

HEËT P 

SOUHDC 6,6,6,5 

GOTO 2495 

és HE; "BIEN JOUE..." 

5 + #6; "ATTERRISSAGE REUSSI" 
f POSITION 31H57 K#É;"scores" 
A ÉBOHUS=CÉ7S 

FOR P=f TO BOHUS STEF 5 
POSITION 9,19:7 #6:;SCORE+F 
SOUNDC G,P#ZS., 16,15 

H NEXT P 

EH SCORE=SCORE+EB0ONUS 

Fr] 

(5) 


D | a DO ETS 
Qt 
sde 


ORNE 
Ne 
5) D 


on 
5 ra 


Les La deg el Lay 


sÙ : 
on 
CO —, 
où 


SOUND 6,6,4,64 
HOF=G: CHUTE=A:NEXT SAUT 
24 GRAPHICS Z:POKE 53245,@:POKE 53249, 


DRE 
[EL 


7 #65 "VOUS AUEZ REUSSI" 
ci  #E "  1@ ATTERFISSAGES" 


Ta 


#E 

#65 "UOTRE SCÛORE FINAL :-" 
G + #65" "5 SCORE 
3696 SETÉOLOR 28454 

FOR P=S5 TO 246 STEF 3 

FOR G=P-5 TO P+5 
SOUND 6,6G:1@,15 
36 NEXT G 
F4f SETCOLOR 1,RNDG5#15,8 
A NEXT P 
64 SOUND 6,4,8,84 
Fr4 END 
19060 RÉFISPEEKS 106 5-5: A=256*#RAN 
AG1i GRAPHICE & 
AW24 SETCOLOR 4,9,2:SETCOLOR 2,9,2 


14436 PRINT CHRS#C127 5 "PATIENTEZ UN INST 


FAIT H 


Ces al du Ce Ua à 


RE 


J 7] 
Ti NM 
Er 


Les te Ce] Log 5 Es Cal 
hi 


ee D 


PARACHUTISTE 


LAG4A PRINT CHRSC 127 25 M OOOOONNEONONE 
“B0S9 POKE 752,1:PRINT 


1AGSS REM ## COPIE LE JEU CARACTERE ROMA 
EH RAM ## 

iAg6g FOR P=6 TO 1423 

A POKE AHP,PEEK(SF344+P 5 

S4 SOUND G,PEEK(S37r4).18,2 

98 NEXT P:SOUND À 3 À 9 6 9 

Gg REXD % 

14 IF *“<@ THEN POKE 293,RAM:GOTO 1422 


Ss8s: 


FOR P=à TO 7 
RERD 

POKE CKE90+P,7 

NEXT P 

GOTO 14198 

REN ** DATA POUR REDEFINITION CARA 


A PR 
n EX 


EU te ponte Hoche ponte bte joue ÉEST pute ponte be pute 
UE] 


ER co Bt 
[TT be pote bebe ponte Monde pute 
TT Ta NT Es Col fi 


-, Mn Er 


DES 
. 129 

10180 DATA 5,0,0,0 
10190 DATA 3,25 


DU AA cd ARS “és que ni 5e À ie : 
FU DATES 1, TS, Len, PUR ES, GO, 5), dés 


DATA 6,16,8,122,194,255,2,4,8 
DATA -1 

FE=RAM-8 

FEM 

FOR F=517 TO 76€ 

POLE RXZSé+P ,0: NEXT F 

REM 

FOR F=0 TO 7 

REGD X 
POLE R 
POLE FE 
NEXT F 
POLE 204,R 
RETURN 

REM 


DATA 16,126.127.755.176,67.2%3,8 


1256+70+FP4+512, X 


# 
MED +EO+P+S Ho, X 


Ce jeu de Roland Mariott nécessite 24K de mémoire. Il 
vous permet de jouer contre l'ordinateur ou contre un 
adversaire de votre choix. Pour gagner, il faut réussir à 
placer quatre carrés de même couleur dans une rangée. Vous 
jouez dans quatre plans (A,B,C;D) divisés eux-mêmes en seize 
carrés. Pour jouer, choisissez d'abord le plan puis tapez un 
nombre correspondant au carré choisi. 

Ils sont numérotés comme suit: 


13 14 15 16 
09 10 11 12 
05 06 07 08 
01 02 03 04 


Voici des exemples de coups (n'oubliez pas qu'il est 
inutile de taper la touche <RETURN)) : D15, A05, B10, B16, 
C02. Lorsque l'ordinateur vous demande le nombre de joueurs, 
tapez <1> pour jouer contre lui ou <2> pour affronter un 
autre adversaire. 


8 JEUX EN BASIC SUR ATARI 
SEE PRE RE 


& REM CE 

1 REM * MORPION EN TROIS DIMENSIOHS * 

2 RENM : CE ROLAND FARRIOTT # 

3 REM #4 rrnnrnseseen eee ess. 

4 GOSUE 266f 

5 DIN SPACES64,2 3: DIM MARKS 64 5: DIM BLOBé 
86,3130IM HZ ec 

6 CL=ÿ 

Fr GOSUE Ég6i 

19 GRAPHICS +16: COLOR ! 

17 SETCOLOR 2,12,8:SETCOLOR 44,5 

ES : Land Le4,8:SETCOLOR 4,225: SETCOLO 
28 FOR : #=9 TO 129 STEP 43 

34 FOR Y=95 TO 24 STEF —1 

46 PLOT sr: DRANTO #+38, 7-38 

D NEZXT Ÿ 

6 HEXT # 

51 PLOT 9,288: DRANTO 25,8:PLOT 6,27: DRANT 


ir 
DRE 
Le 


62 FÜR RT=G TO 86 STEP 43 

EZ PLOT ART+41,95:D0DRONTO RT+41,364: DRENTO 
RT+F1,8:PLOT RT+49, 95: DRANTO RT+48,38: DR 
ENTO ET+F6,6 

64 HEXT ART 

5 COLOR G:SETCOLOR d4,3,2 

6 FOF Z=f TO 129 STEP 43 

F9 FOR v7=31 TO 31 STEP -24 

F2 FOR K=1 TO 31 STEF 5 

ré FOR A=Ë TO 1 

[68 PLOT Z+%k+h 7-08 +3: CRANTO Z+5+8, 7-8 


794 HEXT 
Sa NEXT # 
389 HNEXT 
956 HNEXT 
1989 FÜR 
1614 SPAC 


TT 


"TI Pi 42 
il 


T0 S4SRERD H,4J 
1 


1 
CP 1 =HI SPACE P,2 =) 


m1 


MORPION EN TROIS DIMENSIONS 


1912 MEXT P 
1815 IF PEEKX7643=295 THEN 1615 
1816 CLOSE HI: OPEN #i,d,@,"K3 "GET #12H 
1919 IF H£ES OR HÈ68 THEN POKE 764,255:6 
OTO 1615 

1: 


mi sr Vas N=GS IF HSE6 THEN H=Î6: 


Do LE FLN] 


Î 

IF H 

1913 IF H=66 THEN N=i6 

1826 IF H=Ë7 THEN H=3Z 

1821 IF H=6S THEN N=48 

1W23 POKE ?64,255 

1624 IF PEEKK 643-255 THEN 1924 

1425 CLOSE HS: OPEN #54, B,"KSUEGET #33 
1926 IF Z<4S OR 2549 THEN PDKE F64,255:5 
OTO 1h24 

INF PÈÜKE rEbd,255 

ÎGSS CLOSE #4: HE Hd ,d4,5,"E:": GET #4.HH 
die 45 OR HHÈS7 THEH POKE 764,255: GOT 
1433 REM FOR TR=8 TD 2 

1434 SP=N+1 BEC 248 HH—48: LOCATE : SPACELS 
Le ,SPACE SP:23,64:IF GH<>4 THEN GOTO 1 
15 

1935 CLECL+1I3IF CL=Z THEN CL=ÿ 

1436 FOR RYy=1iS TO &@ STEF —-1: COLOR cRr4CL 
+2: 5 SETC OLOR ls 

1427 FOR TR=G TO Z 

1935 PLOT SPACEXSP, 1034+TR,SPACESSP,203-TR: 
DRANTO SPACE SP, 1H TR: SPACE SP 20 TR 
1933 HEXT TRINEXT RY 

if CLOSE #1 

LE42 FOR Pi=i TO 654 

1äd4 LOCATE SPACECPG, 1 5%,SPACES PU, 1,1 
146 MÉRKE POLE NEXT Pi 

IAB C=CL+E 

Li A=1:B=16:D=16:E=1:GOSUR 1498 

1185 A=1:E=61:0=1:E=4: GOSUE 1446 

1114 A=1:B=13:0=17:E=4: GOSUB 1488 


9 


10 


JEUX EN BASIC SUR ATARI 


1115 Ad: B=16:D=1S:E=4: GOSUE 1466 


1129 A=1:B=4: D=28:E=1: GOSÛUB 1498 
1125 A=13:E=16: DR 1Z:E=1: GOSUE 1486 
1139 A=1:B=1:D=21:E=1:GOSUÛUR 1488 


1135 A=13:B=13:0-13:E=1: GOSUE 1464 
1149 A=16:B=16:D=11:E=1:GOSUB 1498 
1145 A=diE=diD=1S:E=1: GOSUE 1468 
156 A=1:B=49:0=S:E=16: SOSUÛUR 1468 
A=di:B=52: DZ: E=1E6: GOSUE 1466 
A=1:B=4:D=di:E=1: GOSUB 1498 
=i7:E-=26: 0-4: E=i: GOSUE 14ff 
A=33:B=36:0=d4:E=1:GOSUR 1498 
A=33:B=36: Didi E=1: GOSUE 1485 
A=43:B=52:0=4:E=1:GOISUE 1488 
IF JOUEUR=1 AND CL£a THEN GOTO 156 
PU IF : 
i 


in : 


EN ds A à 


ju à 


“] js 
RARE 
‘LT 


a pote Hoche ponte de pute fonde 


r 


[RUE Lane RS 27 pu Hoohe pute 


CL=S THEN GOTO 1815 

TO 1615 

FOR PE=A TO B STEP E 

14 IF MARKCPON=C AND MARKE PGO = AND 

MÈRES PEH-2ED=C AND MARKS PO+ZED EC THEN 5 
OSUE 1455 

142 HEXT Ph 

1436 RETURH 

1454 PLOT SPACES PO, 1 +1,SPACES PU,25-1:0R 
AUTO SPACES POHSÉD, 1 +1, SPACEC PGH3#0,253-1 
re 

1599 REM JEU ORDINATEUR 


| 
Eu TO 
FE Et TO En CN 


Het put He 


1 fs Le 


1ERG FOR PGsi TG 6 

1695 LOCATE SPACE PH, 12,5SPACESPG,23,1 
18GE IF LEZ THEN LEIÏG 

1698 IF LES THEN U=5B 

1618 MARKCPOISUINEXT PG 

1515 . 

1626 A=1:B=Ii6:D=16:E=1:SOSUB 1764 
1625 A=1:E=6 1: De 1 : E=d: B0S UE 1748 

1639 H=l:B=13:D=1F:E=4iGOSUR 1768 
1635 A=diEB=I6:D=ISs Ed: GOSUE 1766 


1549 
1645 
1558 
1655 
1568 
1665 
1678 
1675 
1534 
1682 
156356 
1688 
1638 
1FG6 
LF45 
1F18 


MORPION EN TROIS DIMENSIONS 11 


A=i:B=4:D=28:E=1:GOSUB 1798 
A=13:B=16:0=12:E=1: GOSUE 1786 
A=1:B=1:0=21:E=1:GOSUB 1798 
A=13:E=13:0=13:E=1: GOSUE 1788 
A=16:B=16:0=11:E=1:SOSUÛUB 17989 
A=d:E=d:O=19:E=1: GOSUE 1786 
A=1:B=43:0=5:E=16:GOSUR 1768 
A=4:B=S2:0=3:E=16: GOSUE 1764 
A=1:B=4:D=4:E=1:GOSUB 1798 
A=17:B=-26:0=d:E=1:GOSUE 1766 
A=33:B=36:D=4:E=1:GOSUB 1798 
A=49:B=5S2: Did: E=1: GOSUE 174% 
GÜTO 1749 

FOR PG=R TO E STEP E 

H=H+1 

SUMSMORKE PE UH-MARES POH-D CH-MIARKE PO+2XD 


DHMARKE POHSÈT 


ren 
5=0 
ir:n 
1r4t 


IF SUMS=38 THEN GOTO 1338 


5 BLOBCH, 1 =SUN: BLOBCH, 2 =PG: BLOBCH,5 


HEXT PO: RETURN 
FOR TZ=i TO H:IF BLORTZ,13=158 THE 


H GOTO 1555 


1745 


HEAT TE 


6 VE=G FOR T£zi TÜH 
3 IF BLOBTZ,153=28 OR BLOBTZ,1:=198 


GOSUE 1866 


Fan MNEXT T£SIF YZ<56 THEN GOTO 1766 


GOTO 2456 
FOR T£=i T0 V£Z:FOR PZ=2 TO épz-15 
IF HATZ=HSPEZ) AND TZÉÈPEZ THEH SP 


HA TZ: GO0TO0 1935 


N SP=PO4TESDS GOTO 16435 


335 


NEXT TK 
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JEUX EN BASIC SUR ATARI 
1858 FREM DEFENSE 
1555 FOR TE=8 TO S:IF MORE BLOBE TE. ONMTE 
ÉBLOESTZ,231=f THEN SP=BLOECTZ,E MTKSELG 
BE TZ,33:G0T0 1435 
1857 NEXT TK 
1869 FOR P=8 TO 3 
1863 IF MARKEBLOES Lr2 YHPÉBLOBCTZ,33 3-0 
THEN 2=2+1: HZ E =BLOBCTE,2 HP FÉLORCTE 
#54 
ÎS6S HEXT P:RETURH 
1598 GOTO ZA 
1358 GÛTO 2454 
2959 SP=INTÉBSERNDE Lis IF MARECSPIES T 
HEH GOTO 18H35 
8455 SOTO 285 
3088 REM ECRBH ENTIER 
3826 SRHPHICS 2+16:SETCOLOR d4,13,2 
3436 POSITION SSII T HE AMIIIERERERE " 
3649 POSITION 3,2:% #65"# MORETON EH #" 
ZASA POSITION 3,3:% #6;5"4 3 DIMENSIONS#" 
3952 POSITION 35,4:7 #6; "4 DE ROLRND #"° 
3854 POSITION 3,557 HE:'# MÉFRIOTT #° 
3668 POSITION 3,62: #6: "HIHI" 
3474 POSITION 1,5: #6:° TBPEZ START" 
3688 IF PEEK(532793=6 THEN RETURN 
296 GOTO ZHSE 
Sn DATA 1,95,19,54,19,r2,29.66 
SA1G DATA 127251606190 2846 
5926 DATA 1:53:18sdd,19235228%26 
SAZA DATA 1:23:-164:24:19,152262€ 

Gdn DATA 44,95,52:84,62:r79sr1266 


DATA dd4,73,53:64362595sr1:46 
DATA 44,533» 3625355" 1326 
DATA d4,23,53,24,62,15:r7126 
DATA 87:93:96 :84 10527 2:114,66 
DATA 874723396264: 1805:33114246 
DATA 57:53:96 42 105235%1142:26 


D 
“1 D î 


Et 0 Ci 


ITU 6 ON cn nc 
Le] 


ba | 
des 0 


MORPION EN TROIS DIMENSIONS 


5116 DATE SF,33,96,24,185:15s2ii4.,6 
2126 DTA 159,93,15:9,54,145,75,157.66 
5 A DATE 126: 723r129s6d3145 toosr 246 


148 DATA 129:93,139,44,148, rire 

2 DATA 1:6,233,1239,24, 14€ 15 15726 

Ë PAPERS B+I6:7 #6:" 2 joueurs QU" 
Ë #6:°1 JOUEUR CONTRE AGI° 

ÊE 7 #65" CTAPEZ 1 OÙ 2 3° 

GAS OPEN #1,4,6,"K3%3GET #1, IP M<4S 0 
R ns 26 THEN PÜOKE F64,25S:CLOSE #1: G0T0 6 


ee, 
TT ul 


JOUEUR=A-48 CLOSE #i 


TI cn! 
5 Cao 
a D] 
mc 

m1 

pa 

| 

Cas 

FA 
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Sur la piste, quatre automobiles s'affrontent dans une 
course folle ; vous devez éviter l'accident tout en essayant 
de parcourir la plus grande distance. Utilisez le manche à 
balai pour diriger votre auto et le bouton rouge pour 
changer de vitesse. Attention, ce programme utilise le 
langage machine, aussi sauvegardez-le avant de le lancer. 


m1] 


: SROND PRIX ECRIT PHR 


1 REM PAUL DUNHIHE 

2 DIM Sédi,li$é 19 3,E#c 1982 

3 GRAPHICE 9: U$="LENT'IPOKE 7521 

E S:COLOR Z'PLOT 6,6:D0DFANTO F9, 
5 Ce DRANTO 78,365 DRANTO 6,383 PO 
S PrRIO 18,#6,0/02"52" 

+ 3: COLOR Z:PLOT 79,29: DRAHTO F 
3 Gr1: POSITION 6,29:X*10 15,#6.04 


4 ut pes Grrte 
= 
AR LX | 


We pe 1 
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JEUX EN BASIC SUR ATARI 


: POKE 33245, 11 
Sa , IAB: POKE 5: 
25 POKE rEd, 189: 
POKE 707:29:POKE 52277 :3:POK 
24 FOR O=FM+1624 TO PMH2048: 

£i 
36 RES STORE Zi: FOR an tits TO PFHI: 
REBC BSIF B=-i THEN 3 
31 POKE DO: HEXT 

22 RESTORE Zif:FÜOR en EEE T0 PFHISSE: 
RERD RSIF E=-i THEH 

: PORE G,HINEXT 
74 RESTORE 2184:FO0R RECTIOEE TO PAHIFS92: 
FEBD BSIF EE THEH 3E 
35 POKE GHINEXT 
35 RESTORE EIBI FOR GSPFHISdS TO PAH2H4S: 
REGD ASIF A=-i THEH d& 

357 POKE O,A:HEXT 
48 POKE 623.1 

54 SOUND 9,255212%9: SOUND 1,145,12,5: SOU 
HD Z,244,12,5 

64 FÜR G=53256 TO 53268: POKE 4,3:POKE 8- 
CANÉCSSRENEET G 

Fa POKE 7üd,189:POKE 795,39: POKE 796,79: 
POKE TArT,COPOKE S227F 3: POKE 599,6 

F5 ST=PMH+IS42: UI=INTÉST/256 di LT=ST-256#1) 
ItPOKE 243, LTIPOKE 2fd,UIS:POKE 245,168 

89 P1=<RNDC 1 7E 108 +108: P2=< RNDK 1 TK 188 +1 
Aa: Pac RAD 1 31 66 +1 GE: P2=S5E 

85 FOR Q=6 TO 3:56 006 RNDK 1 ED HIS NEXT 0 
87 POKE S23248,P@:POKE S3249,PI:POKE S3Z2S 
A,P2:POKE 532951,58 

28 FOR G=i TO SG: X=USRéADRCES# 3), FHIMNEXT 0 
Q& IF LIf="UITE" THEN GOSUE 4@@:GOTO 126 
32 POKE 53279 ,1 

35 PS&=PA+SC GIF POÈ255 THEN P=ÿ 

48 K=USRCADRCES 3 STICECE 3 

1 Pi=Pi+SC15:IF P15:255 THEN Pi=à 

1AS K=USRC ADR ES D STICKCE 5 5 


F3 
s 


GRAND PRIX 


118 P2=P3+SC20:IF P25255 THEN P2=û 

124 EM=KMH6. 61 

124 #=USRE ADRCES 3, STICKC 6 353 

129 IF STRIGCA=G THEN GOSUE SG 

34 POKE 232489 ,P@:POKE 53249,P1:POKE 532 


4 POKE 636/2:POKE 63712957 "UITESSE "; 
“:POKE 6SE6.ZIPOKE 6Sr,2@5% °KILAS 


Le Ft 
Z 
LE 


mr 
be 
"1 * 
a. 
PF 
> 
À (1, 
de F 

M à Es 
Æ A 
(T1 . 


54 THEN N 606 


Ci TR 
mnt 
ba] 
el 
au 
#] 


215 “DATA 2 L36 82365641 
SR SC =é RNDE 1 'HKZHHISRE 
468 PS=PA-<SCBIKDNIF PEG THEN P6=255 
485 A=USRE ADRCES 3, STICKE 6 5 

dif PI=PI-SELIEDTIIF P1<4 THEN P1=235 
415 K=USRÉADRCES I STICECE 3 

424 PE=P2- SC DNKDNIF P2<6 THEN P2=255 
425 K=USREADRCES D, STICKL G 5 

434 KP=KM+8. 065: RETURN 

SG IF U$="UITE" THEN L$="LENT":SOUND @, 
299 +12,18: SOUND 122452127189: SOUND 2,233» 
12,1G:RETURH 

519 UH="LIITE":SOUND &,19@,12,18:SOUND 1, 
118,12,18: SOUND 2,96,12: 16: RETURH 

666 GOTO 645 

685 SOUND 6,8,8/89:S0UND 1:9%%%9:SOUND 22 
G,448 

619 PURE 53245,1889:POKE 53249,188:POKE 5 


Ë5D TRAP 629:7 “ UNE AUTRE “35 INPUT Li 
IF U$(1,13="0" THEN KFEGIUS="LENT":T CHE 


634 END 
644 .J=PEEK 293 
645 FOR Gei TG #5 


DSB*PEEKS 284 à 
= fs I 
EXT 6 


F PEEKC.HGi=6G THEN HN 


17 


18 


JEUX EN BASIC SUR ATARI 


TFRF 4h 


598 ST=JHSLIT=INTÉST- 256 I LT=ST-2S6KUI:P 
QOFE 243,LT:POKRE 2f4, LT 

655 FOR P=i TO 68 

558 H=USRE 1536 3: SOUND 1,PEEK(CS3Fr780,128, 
SF4 POKE FHr-PEEKCSSP TONI NEXT P 
Fag POFE 23251.,6:G0T0 ES 

966 RESTORE 2969 

16 TRÈP 1456: P=f 

924 P=P+1:RESD À 

HI EfCP,PI=CHES HE à 

948 GOTO 1624 

AS RESTORE :f6f 

966 TRÈP 1498: P=1535 

GF6 READ ASPOKE PF,A:P=F+i 

936 GOTO 1474 

fi 


1: 


Et fa Vu Fan ponte Hoche pute Hoke ponte Honde pute Hot pute Ph porte 
AU 


58 BRETURH 
AD DATÉ 154,1H4,184,74,72,1r76,11.,164,8 
LPC a COS 8 136 2 1 95 8 LOS 2 CO 8 LON 3 PAS 8 Sd ro 14 
Fdsrre 
S19 DATA 1762111640 rr er 283: 206 145,2 
M3 5 136 
SOS DOTÉ 136,268,547,1Hd4,74,72,176:7213 
Ge Ci. i 
243 DAS 2 dl 23 8 NS 2 1Ei sr ds iront r23E 
2 CAT 165 2 OT se 11 53 8 LE 9 6 END 
3988 DOTÉ 154,168,8,173.19,218,145,203,2 
GE » 192 8 20 0 COS 2 246 » SE » END 


Ce jeu a été écrit par Paul Dunning. Utilisez le manche à 
balai pour poser votre vaisseau spatial en toute sécurité 
sur l'une des trois aires bleues. Si votre vitesse est trop 
élevée, vous vous écrasez ; une vitesse de "5" semble bonne. 
Votre score est calculé en fonction de la vitesse à laquelle 
vous atterrissez et de l'aire d'atterrissage que vous 
choisissez. Après un atterrissage réussi, vous repartez avec 
un bonus de cinq cents litres de carburant. Le jeu se 
termine lorsque vous avez épuisé votre stock de carburant. 
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UC 
« 


KL 
“ty 
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uw 
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M [ol 
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Li] 
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22 JEUX EN BASIC SUR ATARI 
———__——— À 0e 


ESrdfsrrsd435 ile 44,73:5 SE 

LR. 2OIN Ac iQ, HEL II EH GR HE=" 
1": PÜKE FS2.1:RE=S56f 

: CA=40B8: TE=1 GB: SC=A: ENS: LIT=ÈN: PE 
:1:GOSUE 386: GOSUB 49 


DATA 11,12:12512514r19r17r19r21r28r2 


NT | 
C1 
me « 
per 
.T 


3 
= 


EC | 
[1 

E 4 £ 
D 


Cu El PT on hu ! 
[ES 


Ti 
C1 


Rs 
3 OËTE 
CTs29g L L 
3 DËTÉ Re PC Pete PO PR TR PP ET 
DATE 27e LO 29920 02392332 Sa 2323223503 


[ES 


CC 
9 Pts Paie 


Vi F 


1 Lila T 


T1 4 +4 4 
JL 

I Fi 
LA] 
Li] 


ni 
DEA Tux 
in 

be 


M dr +- 


EHC 

RER POKE S23245,34 

RER #: # JEU QUE IF Es 

POKE SSS. Ge POKE FIM IdSsPOKE 712.8 
POFE FassisAL=iif 

FESTORE Z3S:FOR SZ=1i TO 6G:RER 


Fo ns 


4 
HAS, 


no en à 
ed 


+, 
de 


Len 
in 
. 
m1 


SES SC CHARS SI UENERT SE 

225 OÔTÉ if, 164» 104 se Pdf 2r 1611716832 

Frs 28is136s145 5 PAT 8 CAO à COR 8 CAS 8 LP 9 1 Ed 
sFÈ 


el Fe 


D 


ra la ri pts ru 4 ra M pa CO pe à 
DRON 
D] 
[1 +417 
Ti tel 
4 Ti 4 


ch JL 


Eu Po reg Ut 


Frs 
Fr 


sal 


à 
na 

are 
D] 


T' {] Le] Fi 


pds 

LL L] 
! 

ie 

fo 

Eux] 

Na] 
LT 


4 
A | 
on do 
A 
F1 
D 5 
UN 
L] 
CR 


£: 


D 
LE 
ns 


m ie CT 


SS DO RAR RNEN 
ETS Da | 0 
is 
DRASS RATES 


CERN 


per 
m 
Fi 
Lux] 
in 
lu 
mul 
Û1 
1 
CR nl 
FE 


ST 

Fe Qi 
Nr 

1. 

De Fi] 

Fu EE pou 1 1 


in 


+41 ‘5 Det 


L] 


MM pt parte ft 
mi! 


En D 


OR I=PNERSE+16 


ATTERRISSAGE SUR LA LUNE 


2rE RESTORE 296 

288 FOR I=PMBASE+1155 TO PMBASE+1249: RER 
D É:POKE ISE:HNEXT I 

294 DATA S:9,060:607126126% 195219591261 
LÉ: 66:68 rcdrrds 126126 168 IE 

308 DOTE 1652169 8 189 2 0 2 0 2 8 2 0 2 0 2 0 2 0 2 6 2 69 9 19 
ss Fi, sEsbielte 

216 DATE Go 0 88 2 60 2 0 2 2 EN 9 0 9 9 6 9 1 9 9 9 9 9 2 7 
-F 

226 POKE 559,62: G0T0 394 

SFA ST=STICELE à 

354 COSPEEKC 53298 IF CO THEN GOSUB 58 
Et 

385 PÈRE SSSFS,1 

394 IF H=1 THEN FOR GG TO 166: G=USR AD 
RCES 341403: SOUND G2SS2 8 ISSNEST Gi AA=GE AH 


HAT 
né 


=}: Ré ADR Eti.iisSOUND 4,4,6.8 

dan PÜKE 2328, 

4is IF : 5T= 14 AND CA:=36 THEN SOUND 6,255 
.2,15:G0T0 dr 

di5 SOUND 4,4: 3%5 

d2G IF ST=r OR ST=ii NO CA>=S THEN SOUN 
D 1:1HH3532 BOT dE 

55 SOUND 1,H,81,28t 

di IF CEi=R THEH CHI GOTO 455 

AZI IF ST=r THEN EN=ÈN+6., 653: CASCR-S 

435 IF ST=1ii THEN ON=8N-6, 05: CA=CR-S 

dd HP=HP+AN: IF HPÈ1 THEN HP=HISR=T 


ASE IF HP<-1 THEH HP=GISR= I 


455 UI=UI+A. 82: UP=UP4UI: IF UP>i AND SR=1 
5 THEN UP=GISR=IT: OL =Èl —i 

sl UPri ONO SR=11 THEN UP=6:SR=9: AL= 
Ali 

457 IF LiPri OND SE=7 THEN UP=fiSR=S: AL=A 
458 IF iPé-1 THEN UP=ÿsSR=1 4: QL=AL +1 

4ËG IF ST=id AND CAZS THEN UI=UI-&, 850 
Q=CR-18 

dSA O=USRC ADRC ES 3,SR I: SR=IS 

485 7 " SCORE=";GC;" "CHR ISF as" VITE 
=" STE in; " LL 


23 


24 


JEUX EN BASIC SUR ATARI 


SE TON OCHRE ="SCH:" ECHRECIZF 5; BNGE 
="; ANEI GE" : 

487 T7 "TEMPS ="5INTCTEDS" :CHR$C 127 }5" 
ALT =";4L;" 

SES T CHAREC SDS 1 ECHREC CS CHR ES 13 

dSS TE=TE-H. 1 

496 IF TE=N THEN F2 

dir GOTO FH 

395 GOTO 216 

588 IF Cü-d BND UISS,S THEN 666 

SAS IF Cod OND LI:6.4 THEN FHf 

Sig IF CO=Z THEN FH 

526 RETLENH 

SEE FOR Gel TO ZIFOR HN=2SS5 TO 164 STEP — 
15 SOUND G,H,18,15:SOUND 1.H—-i,18,15:5 
OUR £ SF J— 25 5 i Fi F 1 5 

ÊSE HEXT WINEXT 6 

534 SS=H,S-UIISUSSC: IF SS=6 THEN SC=SC+S 
HsGSUTO ESA 

Ed IF QLES THEN SC=SC+HE SSEI 66 #18: GOTO 
ÊSE 

Eds IF AL<26 THEN SC=SCH SS# 10608 #26: GOTO 
ES 

Edd IF BLSES THEN SC=SCH SSD TES 

ÊSG IF CÉRSESEE pren CA=CAHESC-SUEZ à 

655 FOR ef TO Z:SOUND G,4,8,@:HEXT G:Bf 
=: PK 2278 , 1: GOSUE SAAB: GOTO Li 

FES FOR Q=6 TO SG POKE 712, PND6 1 YK255:S0 
UND G,20538s: 10: SOUND 1.:246,8 1,15: SOUND 2, 
SPHsSrISSNEXT O 

FES SOUND 9,68,8,8: SOUND Î.,6,8920: SOUND Z» 

Hi + Si] + k 

FE IF CÉSSE THEN CAM: GOT 728 

Fi POKE F15,86: 4-1: GOSUE SG: GOT Z16 
Feng POKE r12,89:G0T0 315 

SG LiP=6: HP=B: OHN=B: LIT=RE TE=I ARE RETURH 
818 IF SÛSRE THEN GSOSUB igif 

C2 CGROPHICS 1F:SETCOLOR d,1.f 


ATTERRISSAGE SUR LA LUNE 25 


—] 


Due] 


D £ 
pts VE L 


Fi) 


it 


il 


£ 


EN Pi nc ci Et Er cu 


=] 


I do 0 


LC 0 cr D eg 


A 


Lo 
C4] 


e 0 cg eg 


crË 
Re LI 


ca 
2 


ee 
Et cn RU cu Co a me pus CRI 
He junte te pote bo joue AT y Home 


F #5; TERMIHE" 

THE: T #6" RECORD MSFE 

FO HS:T #6;" 3H 

THEY KE: TAPEZ STAET " 

PÈRE 53248,f 

IF PEEK“S32793=6 THEN RESTORE :GO0OT0 
SOÜTO SE6Ë 

EH 


RE INTRO 
GRAPHICS 1F:SETCOLOR 4,1,8:E=û 
F #6" ATTEFRISSAGE 


F #6:7 #55" DE P.DUNNINS SEP.22" 
+ HET #65" MANCHE 4 BALAIS Ca" 
F #6:7 #55" HAUT 

F HET HE" 21 

F #65" GAUCHE<  >OROITE" 

de 


POKE 52248, 

READ MSIF MG THEN 995 

REND P 

SOUND 6,M,19,15:FO0R PP=9 TO PINEXT P 


SOTO 39% 
FO #E;" bonne chance" 


LA LAN) Le] 


FOR K=i TO 12:FO0R Y=6 TO 255 STEP 26 
FE DorroiBeriSs NET VINEST Ki: SOUND 4.5 
:RETUFH 
BESTORE 1:G0T0 938 
H£=" "2: TE=34: GRAPHICS 18H: SETCOLOR 4 
jee asrr PAS HAL "ir Hpix=liir= 
1 % HE; 3b£cdEe fs h " 
+ #E 
37 #6" ik lmnos Ep " 
4 + HE 
5 F #65" gras tou vw m zx " 
Ë Ÿ #E 


26 JEUX EN BASIC SUR ATARI 
ini T #55" 4 ZI. — RE 
IIS POFE 52245; 
1828 FOR Q=if TO 245: SOUND 9,4-19,85,1555 
OUND 1.0,8,15:S0UN0 £,0+18,8 LISsNEËT Ë 
1838 POSITION keV HG; URRE ii ee À» 
P+1ST HE" in: POSITION RHE SN Hi: HEUAUIP 


OSITION KeV+2:7 HOUHAX" 
184G IF STICKCGKOT THEN 1856 

1945 POSITION X,#27 #55" ":POSITION Xe 
V41iT #65" I POSITION M4, V1 #65" 2 
SITION Kewtèsé #6 

1G46 IF K>13 AND Y=7 THEN #=1:%=1:60T0 1 
954 

1947 IF X>13 THEN X=1:Y=v+2:G0T0 1950 
inde H=k+2 

1958 IF STICKCO>11 THEN 1968 


155 POSITION KeVET #65" ":POSITION X: 
V+1:7 #6z" MIPOSITION M+2,0+1:7 #65" 2P 
OSITION M,v4+2:7 #65" 


5 IF #23 AND v=1 THEN #=15:v=7: GOTO 1 


LT 
Ti 


#3 THEH “=1iS:y=#-23: GOT 1868 


ponte He put VU pote 
dr Cr cn Tin À 


TN nd 


EU —] 


POSITION Es1g5% HGSUTENP SsINTETE SN: 

M ONSTE=TE-6. ii: IF TE=& THEH 1166 

1865 FOR PP=8 TO 2H: HEXT PP 

1869 IF STRIGGNESG THEN 1688 

1871 LOCATE K+1leP+i Rs IF HE=BSLÉ MENT TH 

EH 1146 

1872 IF HH=OSCC "RMS OND LENCH#S 51 THEH H 
=HSC 1, LENCHE 5-1 1 GOTO 1656 

1873 IF LEMH#3:19 THEN 1956 

1875 HEC LENCHÉE Hi CHARS KE 3 

1984 POSITION 4,11:7 H6:H#:" 

1893 GOTC 1635 

1188 FOR G=8 TO 3:SOUND 0,9,8,8:NEXT 0 

1118 RETUREH 

dan GRAPHICS 5 

414 RESTORE 6: COLOR 


[EX] 


ATTERRISSAGE SUR LA LUNE 


4829 FOR K=à TO 79 


4636 
4 
D 6 pet 
48 
448 
469 
416 


REC 


PLOT #39: DRBNTO # 


NEXT x 


Dan] 
l'en | 
CU 
l'a | 
mu 
| 


PLOT 13, 


uen 
SE 


DRAHTO 


PLOT 56,28: DRANTÉ 


223 


LE SES 


PLOT 65 
FETURH 


DRAHTO 


ia M da) 
Fô Cù Po 


27 


PAT ee 


à PA 
Blu. Us 


4 ll x À 
CL PRIT & 
... Se 


Voici un programme qui pourra vous aider à prendre une 
décision en fonction d'une évaluation rationnelle de la 
situation. L'ordinateur vous demande d'abord le nombre 
d'options (auto, train, moto). Il vous demande ensuite le 
nombre de facteurs qui influencent votre décision (prix, 
confort, rapidité). Il vous demande alors le coefficient 
affecté à chaque facteur pour chacune des options choisies. 
La réponse de l'ordinateur s'inscrira sur l'écran en vidéo 
inverse. 


16 RER #E DECISIOH FE 
56 REF DE CHRIS CALLEHDER 

21 RER #* ADAPTE PAR F.EURHH 

22 RE #i # # 

25 DIF HI 323: GOSUE 3E 

38 GRAPHICS 9 

dé SETCOLOR 2,8,2:SETCOLUR 4,8,2 
24 PRINT ,° 

66 PRINT ," 

F4 PRINT 

Fa RETURH 

58 PRINT CHOMBRE DC'OPTIONS" 


30 JEUX EN BASIC SUR ATARI 


82 TRAP SZ: INPUT A: 0SUALS A$ à 
39 PRINT “NOMBRE DE FACTEURS D'INFLUENCE 


TEGP 144: INPUT Ë$ 
=URLCHS 5 

CIM Dé OK32 3, FE PAGE 
Q$cii" MIO COETE =" MORE 
FHCiie" MiFRéFETD =" MIPFÉCDIFE 
GOSUE 36 

FOR S=i TO Ô 

+ NOM DE L'OPFTION "56 

TRËP 186: INPUT A#:TRNP 49998 

Qc O1 EE + 1,041 ETES A 
HEET à 

GOSUÉ 36 

FOR A=i TO F 

F "NOM OÙ FACTEUR "36 

TRËP 248: INPUT H#: TROP 49646 
FHCCA-1 ETES 1 RE 
HEXT 

GOSUE 35 

DIM PÉO,F 5 

FOR =i TO 0 

FOR B=i TO F 

GOSUE 36 

F "OUEL COEFFICIENT AFFELTEZ MOUS ce 


1 
p 


‘FACTEUR "3F$ééB-1 DT C1 KSE+ 


LA] 
Et Ut 


al de ed 
C0 Cr el TT £a del Fu be 1e 
Cr si à 


Fan tt 
A g 
Er St oi id 


Lo 7] 7 M fs el 
EG DE it 


ce tel y Pet po Pa ns Ma ro Po ro lo ra 
{] 


Pots it 
rt Ed 


35 a L'OPTION "sO$ie hi rK32+1,0h- 
ÉD DOS 

ä IHPUT 

B MERE ti 

5 HET E 

& HEXT À 

59 GOSUE 35 

38 + "UGICI M9 REPONSES: -" 

GE FOR B=i TO G 

15 C=6 


TE 
et 


DECISION 


.] Fri 


CARLA RUEEX] 
Il 
ques 

£ 
a | 
T 
w 

1 


IF C>TOP THEN TOP=C:NO=A 
NEXT 8 

FOR A=1 TO 0 

IF A=N0 THEN FOR P=i TO 31:L=(A-1 #3 
24Ps A=0$e LL K=ASCC AE 1281 060 LL =CHR 
BCKAINEXT P 

435 IF A=NO THEN FOR P=i TD 31:L=0-10# 
2+P:K=ASCCOSCL,LOSIF KS166 THEN OHCL,L 
486 IF A=NO THEN HEXT P 

494 7 OfCCA-1E32+1,6 6-1 EZE431) 

Sûà NEXT À 


LE EF qu 
TN En 


1, 
+ Co 1 
En 


T7 
5 
4 


31 


AMBRIOLAGE 


Ce jeu, écrit par Terry Davies, utilise 24K de mémoire. 
Votre but est de retirer le plus d'argent possible du coffre 
fort. Pour ouvrir le coffre, il faut trouver trois bons 
numéros ; le programme vous prévient lorsque vous êtes à 
plus où moins cinq du numéro recherché. Vous avez droit à 
dix essais par numéro avant que l'alarme ne se déclenche. 
Lorsque vous trouvez le premier numéro, vous essayez le 
second puis le troisième. Si vous trouvez les trois numéros 
(une probabilité de 1 sur 970299), le coffre s'ouvre et vous 
pouvez dérober l'argent. Vous essayez ensuite dans une pièce 
différente. La chance tient une place importante dans ce jeu 
mais la technique aussi. Après avoir essayé ce jeu, vous 
réfléchirez à deux fois avant de vous lancer dans un 
véritable cambriolage. 


LT Le eg a pu 


CS 10863 


: eo . 145:POKE 752,8 
AS:POKE 716,145 
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in Tnt 
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34 


JEUX EN BASIC SUR ATARI 


2 POSITION . #6" CAMERIOLAGE" 

25 POSITION 4,6:7 #6:" CAMBRIOLAGE": 60 

QUE CE 

26 IF PEEK(S327953=6 THEN 1668 

35 _P=P+6. 1: FLASH=FLASH+ISIF FLASHESS THE 

HN POKE 789,P:IF FLASH>5à THEN POKE 798,1 

5: FLASH=-IGIPOKE S32F3.8 3 

dé IF FLASH=G THEN POKE F99,145:IF FLAS 

=G THEN POKE POS, PEPOKE 53278. 

34 IF P<26n THEN 35 

1668 GRAPHICES FiPhadiLC=4Be K=GE = 

1985 GOÛSUE 5108 

144 + UN INSTANT." 

191 GOSUE 39968 

1929 FOR I=8 TO 4:POKE FAS+I,CÉIDNEXT I 

1436 GOSUE 5153 

1648 PÜKE 7323.,1:POKE r99,gir it Hi 

ICT LE COFFRE... CHUTIITITIUS FOR H=i TO i 

SAR HNEST HIT CHR#C 1253 

1G47 7 " UQUS FERIEZ MIEUX D'ECLAIRER": + 
" {gus ETES SEUL..TAPEZ START"IPOKE 538 

Fa, 

1845 IF PEEKSS32F3336 THEN 1945 

1AS@ POKE 709,202:7 CHARS 125 15 "UQUS UOYE 

2 MIEUX MOINTENONT":7 “OANS LA PIECE":FO 

FR H=i TO SGGGINEET HW 

1955 + CHRSC 125: GOT 2996 

1466 GOSUE EG 

1979 7 CHR$C 12335" TAPEZ START POUR UN AU 

TRE CAMERTOLAGE" 

iGF1 POKE 71h39: FO0R H=i TO 2B8:HEXT HiP 

OKE 71H,128:F0R W=i TO SSINEXT HIPOKE F1 

Gel4Si FOR H=i TO 2SB:POKE r14,138 

1GF2 FOR H=i TO SSINEXT HIPOKE 716,148:F 

OR H=i TO ZSS:MNEXT HiPOKE 719,138:FO0R H= 

1 TO 1ABG:HEXT HIPOKE F1H,145 

1873 FOR H=i TO ZSG:HEXT HiIPOKE 19,133: 

FOR H=1 TO 196: HEËT HIPOKHE 16,145 

532r79,43IF PEEK( 53279326 THEN 


CAMBRIOLAGE 


209 B=IHTÉ RHD6 LES +188 B=INTE RNDE 1 FES 1 
SE CSIHTERNDE LRST 165 EE 
33 J=j+iif " VOTRE PREMIER NOMBRE _ 14 


F1 
RM] 


954 2: INPUT "NtIF N>99 OR Hi THEN 243 
2685 IF rie THEN GOSUR 3958: G0TO 1466 
28û6 IF NSA THEN CAE 

cbr GÛS UE "2850: 6070 2439 

2445 IF HA S AND NÉA+S THEN GÜSUE 2946: 
SÔÜTO 2643 

2616 IF Hi+S OR H£A-S THEN GOSUE 4668:6 
OTO 2463 

211 GÛTO 2645 

2493 = 

68 J F MUOTRE OEUSIENE NOMBRE": INHP 
de ER he 


D 
ï 
[RES 
ETF 
Tes 


93 OR NE THEN ZS66 
218 IF J=ii THEN GOSUE 2956:G0T0 1969 
sega IF Ke FE THEN 2538 

5 GSÜSUE 3559: GOTO 2933 


2536 IF NÈB-S5 AND NÉE4S THEN GOSUE 2366: 
. 


ne A: “A 


! 
Fair 


3 IF NÈE+S OR NÉB-S THEN GOSUE 4689: 5 


DO CE 
LU LT 1 
. 
ri 
] 


LUOTRE TROISIEME NOMBRE": INPUT 
OR HS THEH ZBGE 


111 


Ur 
UD 5 Gi 4 


+ C0 
res 


ñ 
le 


=ii THEN GOSUE 3954: GOTO 1869 


F "LE C OFFRE EST OULERT" 
41536: DFONTO 3S.IE 
THEN SH2S 


NTI A 4 2: 
T1 1 


1 
FF 
Cl 
111 
Der 
Tél 
DE: 
Len 
ir 1.) 


J cl Le 
dE CU End 

—] 
Les) 

pal 
pu 

EE 

En, 
ne 
Haute 
+c 
CE 
ut 

T: 
[pen | 
11 
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25 FRSINTE BNDE 6 7 Feb + GT CHRFC 
"ÉTEN JGUE 2 IL d AUR î “AR 
HS: CE ChFFREI 
ne) dia ESS 


CUS RNA LEO NR 


35 


36 


JEUX EN BASIC SUR ATARI 
ZESG IF HC-S END HÉC4S THEN GOSUE SSH: 
GOTO 3665 
2855 IF HNÈC+S OR HEC-5 THEN GOSUE dSffgie 
OTCO 3666 
3044 GOTO 3966 
3858 FOR T=i TO I: SOUND BTS ID2SiNEXT 
T:7 MC'EST EONM'sCOUND 6,8,8,H: RETURN 
3988 FOR S=28 TO 15 STEP —4iHEXT 5: SOUND 


a,Ne1Gs1d:FOR Wei TO Z:NEXT He SOUND EPS 
#52: RETURN 

3959 + "MALHEUR DIL'ALORME S'EST DECLENC 
HEE":7 "LES POLICIERS BRRIUENT :F=û 
3969 7 MUQUS RETIREZ ":TT;s" FRANCS DES C 
OFFRES 3: TT 

3935 FOR N=S8 TO 15 STEP —-diHNEËXT Hs SOUMNO 
12e 182 14:FO0R Wei TO 2Z:NEXT N:SOUND @, 
2: R=R+1IIF R=29 THEH RETURH 


= “a see 


: Br A FALX ESSATEZ ENCORE !'RETUR 


eu 
en 


DL=PEEKL 564 +PEEK( 561 2K258: MEMSPEEK 
E2S6: DAT=PEEK OL+d +SSEPEEKC DL4S 3 
RESTORE 5249:FOR P=i TO 82:READ A:P 
is 


11 
EE 


Es ST F 


in 
Fa 


JT LA su 
Esp Et pal 
D ELA) DES Les) 
Fi 


| 
. 
AL 


2239 OATÉ 203,101 ,208,123:003s1dde2 2230 9 
ACC PECE 1ÉS 2205 ii 2 CGT 3 123: 200 id ss CS 
224 DATA 296,262,208,219,96 

EGGA FOR Jei TO S:SOUND &,4f,i8,8:FO0R Le 
Î TO 1OB:NEXT LiSOUND 6,64,18,83:FO0R Lei 
TO IAGENEXT LEINEST 

ÉSGi SOUND à,5,9,8: RETURN 


CAMBRIOLAGE 


fi as 
D 
0 
EAU 
PE Lx | 
1 
T 
—| 
TL 


DOTE Gorborloltoloretoloteeloltolioltts 
PS PPS PS PS PPS PPS PI PIS PSP: 


= 
"De U 


2666 DATE Boo dE 0 Pi 9 6 9 6 2 6 9 9 Et 9 Et 0 2 A » 5» 

Hi 

20663 DATA 6,600 2026 0050300203 % 30195 

PL 

26664 CAT Ê T2 200 8 Cr pe sBSsc dos AT » 200 

2632200 8 20 9 200 198 5 192,6 

2ODSS OATÉ Go 8 6 2 0 2 0 2 09 2 0 9 8 9 9 2 9 9 9 9 9 9 9 2 9 

2886 DATE 6,640 02 600505614502 

rEÛrT 3290283 

2AGG7 OOTA ESS, 207 2299 263 9 299 8 207 2 2795 19 

Lr192,192,60 606063 6 

CBS OOTÉ 6,6,8,8 20 2 0 2 6 2 09 9 69 9 9 9 89 0 9 2 9 9 

24889 ODATÉ 4,6,0,195, 12,632 207 s2006 

Fe 290 8 DOT 2 2909 B3sr290 

20919 DATA 207,295,192,192,192,0:0 000 

2 9 8 ET 9 KT 9 E 

2611 DOTÉ 6,665 0 2000 ere 195 

s 12 

OAI OATÉ 63220 20 r 2200308 2 290 8 CÛr 2 20 

2633200 5 207 2 200192192198 

SABLE OATA 62606 869 2 6 2 6 2 00 2 9 2 69 2 9 8 19 9 9 9 9 7 9 8 

24414 DOTÉ 6,626 0 9 © o 6 2 0e Oo 1 Sol D ose 

228 22002805 

29615 OÂTA 2552207 2209 2822290 » 207 2290919 

Lei, 18228 0 6 9 6 0 62 

28916 DATE 63620 à 0 2 0 7 89 9 6 2 6 29 6 2 69 29 9 2 9 9 7 9 9 9 

sais DATE Grobsr1N5silr6ssS 25 À. Srcar 2200 Ë 

F2 5 CAT 2290263 8 299 

26618 DATA 267,255,192,192,192,9,0,9,0,0 

ÉSFISPLSFIAFIS 

29613 OATÉ 9,6,6900 200983 2200 8 007 2200 s 19 

Zr6rBr195 IE 

24929 OATÉ 53,259 207 2299 203 8 290 » ST 2223 

263320 Dre r CDs 19425 192.182 

26821 OTA 9,0,8 20 20 909 90 9 0 209 9 09 2 9 9 1 9 9 2 9 2 
For sr 198 sos 195 


28822 DATA G,62:295: 26 
12,62:299, 2073299 B3 
20823 DATA 295,297,295,63,295,207,295,19 


37 


38 


JEUX EN BASIC SUR ATARI 


EL 22 Fo # 
Eise 33 

29823 3 

CPS PIS 

26429 OOTA Ge63e290 207 2200 1900509199 

122633 290 207 220062 

26931 DATA 2552207 2299283 2 290 » CAF 2299» 19 

Lr192,192:636060636 

26032 DOTH 25289 2080 280092000180 

Tasse Cr 3200 

24933 OT 192,0,9,145212283 2299 9 207 229 

e] CE, 258 CAT as Essen 

26434 DATA 2072299 2 1929 192 0 198 009 9 9 9 0 90 7 
ET D Des DE 

29835 DATA Goo leo s223 000 29 s 1 

32,6,6,195,12 

29036 DATA 632299 8 20e 2299 203 2 200 » OP 2 200 

2633 258 5 CUT 3 290 1922 192,192 

28937 OOTE 9,6,0 200 200 02045 res 
sb 

2RBZS OATA Ge633290 2207 2200 8 192280989195» 

1252633290: 207 s000s65 

29933 DATA 255,297 229926832299 3006 2299 13 

Lr192: 192060 

28948 DOTE 59,09,09,9, 192,09 0%e3s5%el23e0 

55.58.06 

28041 OTA Gedotte le ler 227936 

232958: 207 220093622285 

S sg LOT BEM sms Li 

28842 ONTA 297,255,192,192,192,0:0,6920 70 

ses 145326 

23 DATE Bodo l9slo6te63 2290 » 2H 9233 

.192,6,64,195,12 


CAMBRIOLAGE 39 


26044 DOTÉ 6322992007 2200 202 2 20 9 CAP 2279 
26 3 T0 8 LOT 9 200 192 9 192,198 
RARES DOTÉ 6,6, 20 20 290 216001230000 
152,1 
29846 DOTÉ 69,85 289 2240 2299 2 1920002199 
12,6,6:62835 
28447 ONTA 6,9,6,6,0, 082819231925 @08 28 
58:86 
LABS DOTÉ S64,4,192,120e8e%oled45sr1r6925 
Dates, 25 
2AGdS CÔTÉ 132,6,4,195,12263 2293 208 8290 
2BI ED 8 Or 82000 DE 8 2 
20856 DATA 267,299: 192,192,19226080 064003 
150,820:1922486 
24451 OÔTA Gedotellel 26081 2080249229 9 À 
SEE ride lié 
2OBSZ OÔTA Te 200 8 Cr 2200008 9209 8 2Ûr 2270 
2633290 207 22003 192 198,192 
LOUE: DOTÉ G,0,0,8,0288268 2 1928 9 9 9 6 2 
sisi 
LOS DOTÉ ET 00e 240 8 290 9 192 9 9 9 6 7 199 2 
12633200 OT else 
2AGSS DOTÉ 2SS 207 ST 6 20 9 CAT 2 290 s 19 
219219236066 82 6 
2ABSE OATÉ 55,29,192,192,6,84,9,0e3s1:69 
Diatoscdfs en 
DOS DAT 192,49,82 195212068229 20 6 220 
2 ÉD 20 ss Es 20 
LUS DATA 267,295,192,192,192,3.192,8%8 
2H: 16.195066 
LOS DOTÉ Gefolessls 628028002402 290718 
LH: is is 
COGES CÔTÉ ES: 200 2 20e 2200 2290 8 20 9200 
363: 2553207 22959: 1925192, 192 
cAGE1 DOTÉ 45,6,8,8,9288 208201 021" @01r 
G,1F74.,1r4,1F6,194 
CAGEZ DATE 69,8,85,240,0:886s@r195312,265 
sETDsL OT es EE 
2OGET DOTÉ 2552207 220020332992 206 2 270 » 19 
Lr195:6260663 6 
à DATE 88,64,192,0,88 256400022369 


40 


JEUX EN BASIC SUR ATARI 


AE DL o6rË 1950 iD 02200 8 CAT 200 
RSR 
2GG6E DATA 207,295: 192: 192» 240 2 0 9 9 9 @ 50 5 À 
MR ENTE-EA-- 
SAGE DATA 2,64,9,0,2:69:85 299224032991 
92,4,6,195,12 
ZAGES DATA Ë3,255 2207 220902832290 s207 299 
2ÉS ss Cr 8 ns 198, 1956 
2OGES CATÉ 6,6,6 020388000088 22 26% 20 
H,2 
26976 DATA 69,95:892240,255 319239251952 
12,6,4,192 8,0 
28871 DATA 9,9,0,9,12,0,0,0,248, 192020 > 
ET 4 Ë1 3 
29672 DOTÉ 55,8,09,0,88:2,54 0022269999 
De Sd 2 DS 
2873 DATA 192,6,0,195, 1246322992 299 290 
DÉS 8 CAT 8 ot Es 15 
26674 DATA 247,299 3 207 30 030090020238 
CPAS PTS P ES 
29675 DATA 2,64,0,09,2,69,85:99:249 29951 
DEEE 
26876 DATA 63,259,207,255263 2299 » 207 2299 
206 LT CRT 8 00 8 LU 8 135.5 
26677 DATA 4,4,0,0:0:99:179:179:179:8922 
264.462 
OBS DATA 69,99 299 2249 2 299 » 192 or 3s12 
1631298: 2073290382 
2673 DATA 293 2 207 329996 » 15 2 207 » 299 
1192 serrer 
2690 DATA 852589299289 299 222680 2re dy 
ET 8 ES 8 D 3 
COS OTA 192,9,9,3,12,63,255 207 299285 
Fe ET 8 ST 8 Ses 002 15 
GS DATA EfF,249,192,9,192,89,9:09 28:02:09 
sGrbirtsrt 
HS DATE 2,64,6,0,2,85 299992982290 19 
Lssfsss ie 
26654 DATA 63,295, 207 259 :63s299 207299 


CAMBRIOLAGE 


ee 15 S:cnr 2125 2195.192 4 
55 DATE 0:00 reel roses 


ai Fi 
Dex] 
Er 
dE vs 


29086 CATÉ Ge 8t 20 2 0 2 0 20 9 sr3r5l2s553s2939re 

APCE 

20887 OÔTÉ 255:207 2299068195 192:%93s192 

PRÉC RPICPICPIS PIS PTS 

CODSs DATE Gedoodoez et retarttosns se 200 
PAT, LS 

24889 DATA 13630 02 Srllse63s2200 se 20 229926 

Es SEAT UP ee ,S GË 


9938 DATA 9,5, 195, 192,192:9:0 8293920 28 


Es fo EN 


La) 
ri SS 
“ 
MAN 


ee DATA_2,64,5 Dole e03 229 2 CAT 2293 À 
+ 


AT 8 DB 00000 or orBrl2rr13 


LE tt 


1 BrDrd Bodo r6d dodo 
2207 125519220023 15 
,255,251,12,80,295,195 


LE] 
[ea 
on: 
CN 
" 
1] 
in 
in 
ms 
ù 1] 
: 
Ù 
| 
9 CM 


2, CRIS ñ, ä, Ë 
EE sa Dolto ode 2 26e ordres 2290 
3 


5 EL 
Lea 


297 DATA PL PL PPS EL PL PL PS PE PELLE 


DATA 12,12,3,192,192:0 0026203402 


F9 Fu rrus 
CE At En tete ut 
ie 
ii ni 


Et 


DATA 2,64,0 0088263 229 2206 2299» À 
14 


Na] .. 
Lo Pi 
2 pote Vo 


à DATA 4,0, 00 @o0r@rdollr@rl2s rs 


Ds Gi 


ATA Godedoed oo rdododrs Etre 


EE 
ps F 


D63 2200 8 206 8290 » 192780 r3r12 


Dors drllrlSr12r18r32132r192r0 


De ge Poires fil 


CE Cat LE Ci 


TE 96000260 or er r53r233 


#1 


42 


JEUX EN BASIC SUR ATARI 


SU s LT 
28145 OATÉ 
1-1 
2Higé DATA 
ASP 
chitr OËTÉ 
12 

2HiSS CBTA 
21924188 
24183 DÉTA 
ë 

281if CETÉ 
e 

cht11 CSTÉ 
ACPISPISPTS 
aiia DATE 
[al 

113 DATE 
si 

céiid COTE 
556 
24115 CÉTÉ 
is 

2HIiiEé CÉTA 
2132:195 
caliir DATE 
ñ 

2h15 COTE 
[r 

281135 OÉTÉ 
AOPSPISPIS 
24126 OËTÉ 
(e] 

ciel DATE 
sis 

2Hi2E CÉTÉ 
PSP 
24123 DIET 
is 

24124 DATA 
2135182 


sBrbetottstettelts 
PS PSP PPS PE 
Bab otelalirolololotettrlolte se 


35 20 28 0 0 2 0 sHsritrliis 1212512838 


PSP PS EL PEL EL EL PEL EEE 
Dordedretoooes ris reed er 


Dette eltotte otre 


[Ex 
" 
in 
Æ 
‘" 
Dex 
w 
DRM] 
o 
ë 


sErllrilsiSr183 


1Esi£sess 192 r 14e ES :E AAC 4 
Erbdedotetomoomet red rtrsse 


CAMBRIOLAGE 43 


2GIES DOTE 6eme reed re 
F 

2AIEE OOTE 6,408 300 eolesrl2 romeo s 
ñ 

88127 OATA 9:6o@riloi2rl2ri2r3s1922192%8 
PPS 

2BIES ODÔTÉ GeGodebooz 20e oo 0 0 0 
Fi 

38123 OATÉ Gedoñesr leo oder remit 
15 

is 

28139 OÙTO 12,632299 2 1923 192 0 209 9 0 2 9 9 1 9 À 
EPP 

28131 DATE 2ebdedeo8o 0 eo eooon se 
SUITE DATE Beetle oodrilellsioraisi 
SPRL 

24133 OATÉ 192,195:195 2152 192 00 0 209 29 20 7 
sd .5,55 

28134 DATA 4460800000 oo er 
[e, 

28135 DATA Doboler riens es 12192 
F4 8 6 9 Di 9 1 9 

28136 OATS Gode es 00 08 2 0 08 9 089 9 2 8 2 
5 

SUIS OATÉ Gododrs 0 orBs 2329020290 s2D3r2 
LC CPC UCPEC TES ES 

89125 OÙTÉ 267 22048315 IE 2 85 20 29 00 9 9 2 9 2 À 
PPS 

28123 DOTE E.Ed 0003008 o0oodoltetolte tn 
F 

28148 OATÉ Gode ro eee ele ere 
155,8 

EBidi OATÉ eee 50 0 eee 26 0 el 9 
LE 

28145 DATE 64 0 0 2 8 2 0 9 6 29 9 2 8 9 0 Et 2 9 9 9 9 9 9 9 
28143 DATA 600 rs1le20 0200 eee rs 
Hetrlis 

Gidé DOTE Before s oder loder 


JO Fo 


Fe pr psc 
MA] 
2 

Up - ui 


Ds 


TA 


JEUX EN BASIC SUR ATARI 


cfidé 
ASFIS 
sir 
5 
2nia4s 
152194 
24143 
fi 
LISE 
28151 
sisi 
2H15s 
re 


Les 
T 
4 
TC 


24153 OATA 
55,295,62 
28154 DATA 
16, 176017 
29155 DATA 
5,89,298, 
24156 DATA 
29157 DATA 
F4 

29158 DATA 
28159 DOTE 
sErbtette 
24168 DATA 
ñ 

28181 DATA 
2G162 DATE 
,6 

24163 DATA 


EL 
La 


Fi 
RAA] 
run 
om 
+ 


2 

2GtES 
Ed, 6 
2H166 
2G167 
si rte 


LL] 
Ce CCC ou 
Le 
1 TL: 


Se 
TL 
cl 


EE 2 EE 2 6 9 0 9 7 9 9 9 9 8 9 9 © 9 9 2 9 9 9 9 
Goes a 0 9 À PE 0 8 0 € 0 4 2 DHEA 8 4 9 6 9 


orltedotos st 2 6 00 2 9 2 re 


Gosse 2 

33.185 

CAS PAS PCR PR EL PL LS PP TE NP 
LP: 1784 21 765165300200 00r0028 
ES EE {3 fx 

Dette 1 9 ET 

OMS PS GPL EL PER ESP PEL 


8 8 Et 8 9 8 EE 8 9 9 2 2 


ELA) ss 
BG, 16630 26 8 0e À 2 6 9 6 2 6 9 6 9 6 2 O9 


Lrbdoooletedod ose root e 


XX 
» 
+ 
ne] 
« 
ra 
Dr] 
« 
es) 
“ 
in] 


FE 09 9 0 2 9 9 1 9 9 8 6 9 À 2 8 2 


C2 Et 8 8 2 8 8 2 EN 29 6 7 0 Et 2 9 9 19 9 9 9 9 9 9 9 
ECM CMS PCF NES LULU LIRE ER EE 


CAMBRIOLAGE #45 


6 89 99 2 © 2 © 9 9 2 © 7 À 9 


[KA] 


20165 OATA 656 r@r se 

La 

LOGE CÔTÉ 6288 2 à 80 9 8 2 0 9 6 9 9 0 9 9 9 9 9 0 9 9 9 9 2 
28174 OATA 51,6,126,0048,3 2192 2 69 6 9 63 836 
4,84, 

26171 DATA 2,64,9 20 3 0 2 6 2 © 9 09 9 09 9 9 7 0 9 À 9 6 2 0 
Fi 

26172 DATA Geo e0o0 oreilles 24 
#15 

LAIT: DATA 3,1532,6,6 20209 e0o8rl6 el F0 ir 
1F4,1F76,166,6 

29174 DATA 9,2,1868,18,1r79,139,12821r 2 
FHrmrl4s 196228 Te 

SO1TS DATA 243,295 30 20 Door 0e 199 rl 
32,8.6,6 

26176 ONTA 6262024221 79r1r6r1r8r170r163 
EMCPC ERP 154,146 

28177 OÔTA 9,529 693269 3 187 2000 262009 s 
F2 62 5 

. sil D,192,2,000291 2192008 20 0000 00 7 
sir, irE 

24173 OATA 176:17@r170s179r128r2r1797r139 
217316626913 rclacleri 

28139 DATA 213,299 2299 2223 3 DO 22H29 52 
DE 8 6 9 Oo 62 0 0 Gr 12636 

28181 OATA 15,:192,9,0,0,6 26 080 9 9 2 0 9 19 9 9 2 À 2 
SPAS 

24183 DATA 32248 260 427 195,2 25 2632299 r2 
55e 245389 2 B1 s0 acts ctté 

SOLSS DATA 243,63,292 890 00e l20%e32 2093 
152,6. 

28154 DAT 6,628 2020 2020000168 23223 
FRE 

24185 DATA 158,42,170 2137332450 20 or 
d,i:63:6:6 

29186 DOTÉ Gerets 19200 0000 or 
SPAS PSE 

2G18r DAT Grdedoted2sir@el38sir8r1rmr42 
216821683853 sd 

26138 DTA 127424163299 2 206 206 9 CQP 229 


46 


JEUX EN BASIC SUR ATARI 


+ 
ESP PP PS PS PS PS PE: 


ça & 


“var LM 


ANNE 


LA 
ns 


D Dre] 
ui A 
%u 


9100 168 » 1709 1609» 129421 


245, 247 
ATA 267 2 207 2255 » 240 9 @ 0 98 2 À 9 1220 » 


(un 
pote bee perte LEUN poute M pronte 


il 


CC DL Fons 
(RC 
es. 


Lors 


Euler Et pee 
%u 


aa e à, G IG, Cr ä, 0, ä,4,0, CY A, GB Gi 
164912500000 oGo0 er À 


Fo M par it po M pur 
[RARE 


dE Et 

UE RC 
[eut 
TL 
per 
D 


rues 
lt 


CRE) 


DATA EE 8 8 2 2800 0 8 289 0 2 1 0 2 89 7 2 9 9 9 2 19 9 
fi EPOPCPSPLSE ä, CA Gr12,12 


28197 DATA 6,6 089 90 2 6 2 89 9 © 9 9 0 9 9 89 9 89 9 19 9 Et 9 9 
2O198 DATA 63688 6 2 64 oo 6 2 9 6 oi 9 © o © 2 © 2 67 
CB133 DATA 6,606 000000 ro3rl200 ee 9» 


26209 DATA Be9 29 0 2 À 9 9 0 0 9 » 0 » D 9 9 » À » 0 » À » À 
Co CE 9 6 2 6 2 VE 2 6 2 6 0 2 EE 9 À 9 EE 9 69 9 9 9 2 
D262 DOTÉ 62820 0 204 0 9 989 289 9 6 9 6 2 9 9 0 29 20 0 


Lies 
f 

Hi 
bte 
[en 
D 
| 
D 


NA) 


CE PAS PAS PL PA PS PL PS PAS PS PIS PS PS PP) 
DATA Gi € 7 6 2 6 2 0 29 6 2 6 20 2 0 9 6 9 1 0 A 9 9 7 


DAREN 
wa | 
CJ 
L 
—| 
Ti 


He oo eee reed 
DATA 646,6 2 66 o 6 2 6 2 EE 6 2 69 2 2 9 2 6 2 1 2 
RE PP PE PP PP PR EP PEUPLE 


ST £ 
] 1 
TL 
per 
iv) 


a pag Pa po col ro ralr 


SOS OATA 62,448 20 29 30 00 20 20 20 230 06 20 2 
28269 DATA 636 8 6 2 46 0 66 2 6 2 82 EE 9 6 2 9 2 2 2 2 Ci 
26216 DATA 6,668900 012 08 99 96 00 2 29 

Jaaf4 BTT=46: LIN= Ra ne 
(D i=148t 0 3e 70: Ci 4 = 

2@A1G RESTORE 240G0:FOR P=i TO 2143 
38829 READ A:D#<P,P5=CHR#C A 5 

2BEEG HEXT PF 


36444 RETURH 


Dans ce jeu vous manoeuvrez votre tank sur le champ de 
bataille afin qu'il parvienne à détruire le tank ennemi. 
Chaque fois que vous touchez l'adversaire, vous marquez un 
point. Pour vous déplacer utilisez le manche à balai, "haut" 
pour avancer, "gauche" et "droite" pour tourner. Pour tirer; 
utilisez le bouton rouge mais attention, vous disposez d'une 
quantité limitée de munitions. 


te TT et Fe ag Pa pe 


DIN Fit 292 
2, 17235F1$6 26 


F6 RAM: IF PEEK 
5200 “THEN "BRSUE Sas POLE SAS s 206 
TÈ 


eu fin F 
en Pi 


ESTORE 5h: pus D=i 


TO “di ÉRPRSLES 
UE G = YYs HET GiCi=i: 


ce 


dr: 


48 GRAPHICS 2 
38 + #6:° L 
EG FT #E;" 


50 JEUX EN BASIC SUR ATARI 


F9 ? :? " TEMPS OÙ JEU"; INPUT TE 
gg REN 
99 GRAPHICS 17:POKE 75B,RAM:F 1514: F2514: 
Kai w=14r GS: H=S:FFiS1: FFE 
G S=STICKÉODIF S=7 THEN C=C#1tIF C8 
EN C=1 
à IF 5 


==11 THEN C=Û-1tIF Ci THEN C=8 
S=id THEN COLOR 32:PLOT H,WiH=X4X 
ses Ci SOUND 6,2884,8,5 


es 
(] 


Lx Le) os Fan ps FE IL 
0 


1e 

Ti 

Î 

j 

i 1 S< >14 THEN SOUHD 6,6,6.6 

La8 IF | L N313 THEN NaN4KC D 53 Mai N=2 
150 IF #18 THEN v=penvé Dia V2 
NF16+0 = FE 

168 COLOR CiPLOT X,v 

178 IF STRIG(G)=0 AND FFi=1 THEN GOSUB 3 
46 

158 IF STRIGCL)=9 AND FF2=1 THEN GOSUE 5 
56 

199 S=STICKCLIF S=7 THEN CISCI41:IF Ci 
#2 THEN 


“THEN Ci=Ci-13IF C1£2 THEH Ci 


s=14 THEN COLOR 3£  PLOT G,Hi 004 
die CA SOUHE 1, 1nû,8 DE 


ET 
[ 
JL 


F S£rid THEN SOUND 1,9,00 
F & OF GriS THEN Def CI ec te 
5+ Ë +. 


IS +2 F1e 

25 COLOR Ê1: PLOT Lt 

2BE IF Fi£1i THEH POSITION HZTIET #6; CELL 
5 EPLTS SES": FE i-A: SOTI 28 

Era POS ITION His T HE; "OBUSIM:FiSci,Fii 


S8 IF FSI THEN POSITION S,22:7 #6; "OBU 
EFUIS LES": FEzSûs GOTO 268 


98 POSITION 9,22:7 #6; "OBUS2";F2#€1,F253 


CON ER RUUENET 


368 POSITION S,89:7 #6:S1: POSITION 15,817 
HE: SZ: POSITION S,6@5% #6: "TEMPS": POSITIO 
HO S1i% HESINTITE SNS" 

216 IF PEEKCS32F92=E6 THEN GOTO 96 

324 TE=TE-H.1:IF TE£S.1 THEN 568 

338 GOTO 16& 

348 i=x4r Lois ve C5 

354 IF C=i OR C=S THEN FC=1i6 

364 IF C=3 OR C=7 THEN FC=12 

3r4 IF C=2 OR C=6 THEN FC=ii 

384 IF C=d OR C=S THEN FC=13 

396 FOR F= . TO SELOCATE Kisvissss COLOR F 
Ca POOT.: AL 

532 ane “éci THEN GOSUB F5 
i 


ES | EE 
ju su “ni 
AE 
| Lu : 
LT: 
que 
D 
LE 
ra 
Gex 
RARE 


+ 
es, 


rs 41:15 OR #l£1 THEN 456 
36 IF TI OF vi<1 THEN 456 
da Ri=ri+eé Cis Pis VIT CHINEXT F 


Fe pe an pe eu put 


pl 
EN 


AISAHAC C5 PIS TETE Là 


déR FOR Ezi TO SiCOLOR 32: PLOT #l:% 

dFE IF A1 15 OF. #1 THEH SH 

dSn IF r1519 Oh Ti<i THEN S 

A9 Ki=ki+kr Cie is TIiH CINE sil E 

San SOUHD G,8,0,8: SOUND 1,:4:4,%@:Fi=F1-1: 
IF HH=ïi THEN HH=û: GOTO 36 

515 RETURN 

Sen KBs=ber Ci ne pE=d4ye C1 

S36 IF Ci=i OF Ci=5S THEN FC=Iif 

Sdû IF Cizs OR Ci=r THEN FC=1Z 

SOS IF Ci=E OR Ci=é THEN FC=ii 

SER IF Ci=d OR Ci=8 THEN FC=IS 

SG? FOR F=i TO SiLOCATE KE COLOR F 
CiPLOT Xx2sTE 

SEg SOUND 9,255-F#58,8,15: SOUND 1,156-F# 
CPE FS ES 


SOA IF XHC>32 AND KX<18 THEN GOSUB 798:S 


JEUX EN BASIC SUR ATARI 


RETURN 
FÜR G=15 T0 & STEP —-3 


ÉDD | 

614 LA # 

EH) AÇC1 23 V2=V2+ VE C1: NEXT F 
Ê3E Xi CCI rever C1 5 

544 FÜR E=t TO SCOLOR 32: PLÔT X2,72 
ESG IF 2518 OR X2<1 THEN 656 

EEE 2»19 OR v2<1 THEN 684 

EFE KZ=KE+KC C1 5 V2 TE+T ee NEXT E 
ES SOUND 6,6,6%815 SOUND 1423 F2=F2-1: 
IF _HHEi THEK HH= BIGOTO 36 

6: 


DR] it 
EE 


F18 FOR H=G TO € 

F2 SOUND H,RNDE 1 5 6+188,5,6 

F24 NEXT H 

ee HNEXT GiFOR G=6 TO 2: SOUND G,8,8,G3NE 


G: RETURN 


1 
un 


°50 FÜR G=15 T0 G STEP —-35 
7ER FOR H=ë TO 2 
Fra SOUND H-PND12#50+109,3,6 
SH NEXT H 
F9 HEËT GiFOR G=8 TO 2: SOUND G,8,8,8: NE 
ET G:RETUREH 
SG POSITION S,185% #53 "TERMINE" 
14 SIi=BISS=GI FOR Gi TO 5 
829 SOUND 4-198+C-19215: SOUND 1:128+0,1 
+15: SOUND 2,968+C,16,15 
536 C=C-l:IF C=-38 THEN 858 
Si GOTO SE 
556 C=BINEET & 
366 FOR Q=ë TO 2'SOUND Q,8,8,B:NEXT 0 
Sa IF PEEKCS327923=6 THEH RUE 
558 POKE 5 27426: G0T6 ra 
& ses C T0 182 458 ce POFE 


pal 

M | 

Îl « 
COR 


“TO 
TS 
3 
f 
Li on 
Ti 
+ 


EF F=-1 THEN RETURN 


ra) 
1 
ua 
C1 
Ts 


Sie Ce: C=C+I: GOT SA 
Q26 DATA Zde do 2193218020 rose lire 
De00 1007249 7 187022 12324r294r254 48,127 
11545» 2 
325 OATA 24, 12,62,180 8249 2 1600330223 
936 DOTE 219,295 :2008200e2 10 rider s 
dents Ed EST 2 1799586192 
925 DATA 127:187518:29d1294012,127 1871 
DE rrhsrs0el5 rc lsl2dr fre 
G4f DATA 112212632485 2 208 9 200 9 187 26030 
Sel rld Eds Dre 2dolrl rte lGr3C Ed 
C8 À 9 09 LD 8 00 os 6e DE 
DATH 12868222 516e5srdrcrlri 
DATÉ Hr—liris-lsrlelolslolrie-iris-i.f 
=1 
i 


0 


Utilisez les touches <Z> et <X2> pour modifier votre 
croqueur de chiffres. A droite de l'écran, des nombres 
apparaissent les uns après les autres et si vous ne parvenez 
pas à les dévorer, vous aurez perdu. Pour dévorer un 
chiffre, utilisez la touche <.>, vous ne pouvez dévorer 
qu'un chiffre identique à celui de votre croqueur de 
chiffres. Si vous dévorez un signe "*", vous obtenez un 
bonus. 


 2tE0UND Bi 1,10, 134 

19 THEN V=10 

d=G$ THEH I=i:5=5+ 
EC 2,2 =nf6 


Mada A$ 
S=c+z LR 


RE LS PRO RE PTE 
KA + sm, LA Hit à 


A$CS,52=0$ AND I=6 THEN O$S,5 ft 
ASC d, d'A s, Turc 3, Tnt, 2h l=i 
+54 

A$C6,60=0$ AND I=8 THEN ASC6,6 ff 
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DURÉE, 5 eHéc dd 5e Di dd REZ, 3 is GE 
SisRÉÉ 2, Ts I=iiS=S+EE 

=i THEN Béfi liie" "iH=h+i 

F I=i BND DÉ=CHREC 149 THEN FOR ie =255 
GO ZA STEP —1S:SOUND BI.IB,ISsHENXT I:S 
5+é EHTÉ RHD6 G ÉT +3 3€ 1 000 

POSITIOH Ici T HÉESCH:SET HKE:" BECURD 


CAO LA 


DEN] 


1e 
1 


en IL 
DRE NN 


12 SOUHD Derbststt RETURN 

24 FOR I=id TO & STEP —-Z:SOUND G,MH+ISX#36 
#IBISHEXT ISRETURH 

125 DIF AFCE CC 1 SCC 6 1 GOSUE 2668 
149 GRHPHICS SISETCOLOR 4,2,2:SETCOLOR 2 


=" Ms REC EE 2=CHRS< RNDC Gi K3+48 

S=R: Nes: re Le 183 GOSUE fi 

V=f+d8: IF M=19 THEN v=1 

POSITION 5,527 HE:CHREC UV s"e AE 
I=PEEK( 764 31 IZ=PEEK( 53775 

IF 1=22 AND 12=251 THEN MeM+i: GOSUE 
SIF M>19 THEN le 

IF 1223 AND 12-251 THEN MeM-1:60SUB 


er I=34 AND 12= 251 THEN GOSUE 1 
I 


wi 
1.1 
S me 


on Ci Es 


1, 
4 


il Ta IT 


pau Pot pro Pipe agtet peut bee pute bete te 
pt be pute EL CET à 
+ is D NL LE UT 
14 
—| au 
mu] 
ni 
Lx 
ni, 
5 
LOT 
pa 
— 
ni 
ul 
| 


AP 1908:0=0+1:IF O-USINT(O-U THEN 
6 HN OD= CHERS RMDI ÉME1 GA nt = 

288 IF I=i THEN IF A$CN,HD=CHR# 592 THEN 
RENAN = CHRES 160 

224 IF I=1 THEN N=N-1:I= 
225 IF INTE RANK @ #20 23 
8 THEN LES 

234 TPRAP 49999: G0T0 165 
1888 7 #6:7 HG;".. perdu, .":FOR 1=9% TO 
26 STÉPF 11:FOR H=89 T0 94 STEP 2:S0UND 
HG, 152 SOUND 11216215 

1818 SETCOLOR 4,H,4 

1824 POKE 789, INT RNDC GES EEE 

936 NEXT HIMNEXT I:SETCOLOR 4,2,4:POKE 7 


Ed, 255 


NL 


lu 


À pus 


CHIFFRES 57 


Lu. 
fe 
DEN] 


à SOUND &, 
EH REC=S: 


F UNE AUTRE ">;:TRÔP 1858: INPUT À: 
IF A$ci,13="N" THEN GRAPHICS &:7 "A 
UOIR.":7 :7 sEND 

IF AfC1,13="0" THEN 148 

GOTO 1958 

FOR F=i TO E 

FEHD H 

SCC PP CHRECH 

NEXT P 


ri 


on -— 


WA] 


À 


PR 


© MO 


OT TE en Fe 
En Gi 
JT 


RDC 


y 1 
BA REUA 


at 
in 
Do do it on 


Je de) VO pe 


Pa pe lo Po pis 


SE 


= pe y 
SES 


Pour conduire votre bolide, utilisez le manche à balai. Si 
vous réussissez à atteindre l'arrivée, vous aurez un bonus et 
la valeur de la distance parcourue sera doublée. 


18 REM ££ GRENDO PRIX © — P.EUNN ## 

15 PI=S5:GOSUE _ Fm: Met RE | 
29 H2=1d4tH=116:Ss 256: FOR 
H J12 :PGKE 5 
42F9,5 

38 POKE 5959,46:PÛKE 53248,#:POKE 704,216 
:POFE 764, FO: POKE 53256, 1 

49 FOR H=G4SSE TO GHS61:RERD A:POKE NA 

HEËXT H 

56 DATÉ 129,195,165,24,24,153,219,169%36 
3 GRAF ETCOLOF K 


1PÛKE se : 


PE: sPCK ÉE = 


ITU cru dal crue 1 


STI EM 


es, 
A 


Z 
iri 
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F2 SOUND 8,44,19,15:SC=SC+PI: SOUND 9,40 
.Ë 

F5 IF 0 THEN O=G:Z=2:60T0 118 

GA A=PEEKC 52778 

38 


4F déc AND Ar 6 THEN 2=2 


si] 
ja 
n 
ES | 
TL 
71, 
fs 
FI r 
Il 


2=k2-1:7 


RU 
DUR 


END HOT I THEN 7 ,F#:1=1:6 


pete ponts fete ponte he 
Mn 

TT 

Da] 

m1 

Fo 

na] 


[er 
+ 
in 


LE 
1: 
QTE 
en IF Z=i THEN T SI 
136 IF Z=Z THEH ë 252$ 
dé IF £=S5 THEN T SSH KD=K +1 
145 = PEEK 92292 ): IF Y£5G AND I THEN GOT 
O 2AÿE 
154 IF VE THEN GOTO BCCIDENT 
166 GSOTO 7ü 
Lang REM £# BCCIDENTIIEN ## 
1414 N=INTE ROC GE 16 12 POKE CHSSZ+N , PEEKI 
DirrE HER à, RND6 GX cÊ+29,58,15:POKE F 
4,P LE HA . 
H2f PEEKK 52770: 248 THEN 1414 
Hz: POKE 53646708 7 57 MICTRE SCORE: "SC 
F 37 1% "TAPEZ UNE TOUCHE. ":POKE r6d4,25 


SOUND E 3 9 2 > ä 

IF PEER FÉd ess THEH 164f 

FLN 

FOR = TO 2SS:POKE PIB, TiNEXT 
+ CHR#C 12535" SCORE s:"3SC:PÜKE 


CU di à 4 
0 à | Ed] 
do CN 


En ef 
Es . 


Fo" BONUS :198 

Le G=i TO 1866 STE 
OSITION 14,937 SC: 

ee H:6-d4,1#,185h 

AzA SOU UND 9.8,8,f 

? sPI=PIÉZS:T "1 KA UAUT ";PI:" POIH 


dan Pau TT cl pan ml pa ee et pue ET me bete pue Cf 
al 15 MAL 
Ste Fu po 1 a cn 
Et we LM 
ET 
un Do mul 1 


A VE tue 
Ql 
(] 


—4À 
DATENT] 
DR] 


11 
Ter 


Les al 


e" 
ee 


Jet à 
x] e 0 
Æ Lol Pi 
Gi co 


ul Le 
on 


CE de CO € 


mé pe (S 
Eu dE 


= I Co 


DOS CN APS OS EE OS | 


Fri em 
CE Ci € 


GRAND PRIX 2 


RESTÈURE : I=8 
GÜTO 26 

DIF F#83,51#689,5: 
FRESTORE 3GGG: FOR F= 
READ 4,B;,C-0 

FECP 2 P OI=CHRES À à 
SIP, PI=CHR#C ER à 
SEC PP I=CHREE C3 
SF P,P CHR D 
NEXT P 

RESTORE : RETURN 

DATA 16606020 9 319603893093 
DATA 2619322309 20 006 5 325 325 32 
DATA 2614224529 302211 222 5 285 38 


DATA 266,32,2,32,164,6r329r 


Eux] 
Ag 
DK] 
li 

re 
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Parviendrez-vous à détruire les immeubles de cette ville 
qui vous empêchent de poser votre avion en toute sécurité ? 
Si cette tâche ne vous rebute pas, larguez vos bombes 
chaque passage en utilisant le bouton rouge du manche 
balai. 


D’ D 


JE # 
15 FEA 

34 PEN 

à REM 

Sa FREM 

Ea REN 

ES IF PEEK(2G3:-PEEKC 1062 THEN 29 

76 GOSUE 1980: REN * INITIALISATION # 

EG GRAPHICS G:SETCOLOR 2,2,8:SETCOLOR 4, 
ZA 

hi OPEN #ledo@ "KI": POKE 752,1 


BB 7 M HILEQU Ci-gi" 

118 GET #1,4:4=-f-48 

126 IF Ai OF 4:93 THEH 116 
134 A=0+3 

135 POKE 7S6,PEEKX 263 à 

14 7 CHRECIZSHIFOR Ii TO ZE 
156 T=INTE END à LE +1 

1E8 FOR P=5E TO 25-Y STEF -1 
179 POSITION I,P:7 "EU: REM GRAPHIQUE DE 
LÉ LILLE# 

159 HEST P 

198 FOR P=is TO & STEP -1 
266 SOUND G,1#E6+28,16,F 

214 HEXT P 

EG HEXT I 


64 JEUX EN BASIC SUR ATARI 


234 COLOR 94 
249 PLOT 1,23:0RAHTO 39,23 
Sue RAT er 

274 PRINT Men ;2RENM GRAPHIQUE DE L'AUION 


28% a+] 

29n IF #=39 THEN H=1:v=v+i 
26 IF K)25 AND V=22 THEN 1000REN XFAIT 
314 LOCATE #,v%2 
52@ POSITION OX,QviT ve 
334 1F Z=ASCC"S") THEN 2090: REM *ACCIDEN 
349 IF STRIGG)=0 AND EMA THEN GOSUB 39 
GA: REN Ÿ SOUS-PROGRAMNE EOUTON : 

359 IF ENe1 THEN GOSUE 4600: REM * SOUS-P 
BOGRAMNE CHUTÉ EOMEE : 

EÈ Gi TO 2ÉÈË 

Gag POSITION 13,19:7 "ATTERRISSAGE 1" 


niA POSITION 13,11:7 Rsssis 
Ge FÜR T=8 TO qe SIEP 2 


7 CHR 125 )3 "BIEN JOUE : VOTRE SCÛR 


Der 
CNE 
NA] 


EU 
du UE 


END 

POSITION #-1,%7-1 

FT CHRSE FICHES 124 CHARGE à 
POSITION #-1,7 

+ # —#— #4 

POSITION #-1,%+i 

F CHASSE :CHRSC 124 35 CHRSE F2 
FOR P=2696 TO 14 STEP -if 


ROUES 
Fate 0 M 


D | 


D en 
ON EL 
dr TU en Ci ci 


CE CN 


pa Pa pa Po ro Po pe Pa po Po po Po pus PQ pan pee PTT pt pt Pt joue Rent ponte 4 


F6 FOR I=P-5 TO P45 

358 SOUND 6,1,126,15 

A9 NEXT I 

168 C=INTE RND6 6 2#15 2 

114 SETCOLOR Z,0C,2: SETCOLOR d4,C,2 
124 NEËXT P 

126 SOUND Gofis LE [e 

14& POSITION 6,16: “une autre 7° 
154 GET #1.H 


BLITZ 


166 IF CHR#CAD= "O0" THEN RUN 


45ma 
4816 


IF CHRSCAGNESUNE THEN 2156 
GRAPHICS END 

EM=1SEX=XS BY= +1: K=G: RETURH 
POSITION Bx,Bvir  " 
EV=ET+1: LOCATE Ex, Ev,2Z 


4620 POSITION Bx,Bv 
4929 7 CHRSC9:REM XERAPHIQUE DE LA BOn 
4949 IF Z=ASCC"#") THEN 5900 

4@5@ IF EY=22 THEN POSITION BX,22:7 "3 
PM=A 

4GEQ RETURN 

SaG@ POSITION Ex,-Bv:7 "&":SOUND @,230,12 
Hs 1e SC=SC+SE 

5419 POSITION 2,9:7 "SCORE: ";SC 

3028 K=K+15IF KES THEN EMSG: POSITION Ex, 
OT 

5630 POSITION Bx,Bvi7 " " 

Sa4Q SOUND G,0,0-@:G60T0 485% 

19969 GRAPHICS 4 

19914 SETCOLOR 42929: SETCOLOR 2,9, 
18912 7 "BLITZ — UN INSTANT" 

19014 7 MÉÉÉHEEEEEEEEEEEEE" 

18816 POKE 752: 1:PRINT 

19024 R=PEEKC 1968 

19429 FOR P=9 TO 1927 


pote fonde jus ponte Po puute 
nu SN 
Er Cu 


[Rx 
ed. 


Et nl 
den Éd CN 


CE 
do Cl co Et 
te pote Red Et ET pote pe pe ( 
Ja Ts) Faits 

FE à 


LA] 
+ 
Eux | 


re 
he! 


LUN £: 


En Cu Et 


EC D co id 


POKE R#256+P,PEEKI SF 344+P 
NEXT F 

FREAD I 

IF I<G THEN POKE 263,R:RETURN 
FOR P=G TO F 

READG K 

POKE RE256+€8XT +P,K 

NEXT P 
GOTO 16464 

DATA 4,255,129,129,129,129,129,129 


DATA 5 
DATA € 
DATR 7 
DATA —-Si 


\ 


SL 


fret 
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Vous êtes le commandant d'un vaisseau de guerre et vous 
arrivez dans une galaxie inconnue. Vous avez pour mission de 
détruire les ennemis qui vous entourent et vous empêchent 
d'atterrir. Le seul moyen de neutraliser l'ennemi est de 
détruire tous les espaces de vie qui l'entourent. Vous ne 
pouvez évoluer qu'à l'intérieur du champ de bataille. Les 
endroits interdits sont représentés par des signes "-". Si 
vous atterrissez directement sur l'ennemi (représenté par la 
lettre A), vous serez détruit. L'ennemi peut se déplacer 
d'une ou de deux cases à la fois mais il peut aussi rester 
immobile. Vous donnez vos instructions de mouvement sous la 
forme de deux coordonnées. N'oubliez pas de taper la touche 
RETURN après chacune d'elles. Chaque position détruite 
apparaît sous la forme d'une case blanche, les autres étant 
représentées par les signes "*", 

L'ennemi surveille le déroulement de la bataille et vous 
informe du degré de danger qu'il perçoit. La meilleur façon 
de combattre l'ennemi est de réussir à le bloquer dans un 
coin, ceci limitant considérablement son choix de 
déplacement. L'ennemi se méfie de cette stratégie et en 
utilisant " l'intelligence " dans les lignes 6145 et 6161, 
il tentera d'éviter les quatre coins du champ de bataille. 

Essayez donc de jouer de façon à encercler l'ennemi au 
plus vite afin de limiter son champ d'action. Il y a un 
record à battre !! 
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1 DROPHICS Gi: SETCOLOR d4,8,8:SETCOLOR 2,8 
3 OIN 10,1 

5 BTISCCOREZ=R 

15 SEM ALIEH 

Ch REM € COHORTHELL 1987 

36 GOSUE SG: BEM INITISLISETIOH 
44 GOSUE SOGA:REN GFF ICHAGE 

SG GOSUB 7O0û:RENM MOULEMENT JOUEUR 
ÊS GOSUE 6SGa: REM MODIF ENNEMI 

ra TEMPS=TENPS- I 

F5 TIRS=TIRES +] 

89 IF TEMPS=H THEN 657 

S5 GOSUE Sage 

38 GÜTO cL 

Sin TEMFS= 

1008 REM COLL LS LOI 


Eu SUOUS AUEZ TOUCHE L'ENNEMI CH 
PRINT "ET LQUS QUEZ ETE DETRUIT'" 
GOTO ESFE 
REM MODIF ENNERT 

REM TEST SI ENCERCLE 
H=i 
IF AEM-1,N5=2 THEN H=H+i 
IF AM-1,H-13=Z THEN H=H+i 
IF HE N-15=2 THEN H=H+i 

A MN+T SEE THEH H=H+1 
IF AM-1,H+13=2 THEN H=H+i 

IF HE, H+1=Z THEN H=H+i 
IF HMH1,N-13=32 THEN H=H+i 
IF ACM+I, Hi THEH H=h+i 
IF H=S THEH SSBG:REM ENCERCLEMENT 

REM DEPLACEMENT DE L'ENHERT 
E=F: F=N 
FER INTE RHDC LEE INT RNDE 1 3K2 
IF FES OF MSS THE 61:36 


de En Ru 


dE Et 
ni Le da Pa ts Er Le) Fat 4 


ir Ou ji 


TS or gr T8 gr 0 on M Qu M go M og om om 0 Ten in 
en CSN Et 1 


dE nn 0 do Tir 
bd 
a 


Het prob pote bob pots trek 
Æs Ce) Pas Po te 1 


ALIEN 69 


6145 IF éd OR M>72 AND RNDC1228,7 THEN 
Êizn 

5154 HeN-INTE AND 1 MES INTÉ END 1 1E2 
6160 IF M2 OR Na THEN 6150 

SLELQIF CNG4 OR N372 AND RNDC1239.7 THEN 
ESA 

SIEE IF AM Hi=z THEN 6138 

BiES ACE,F = 

S174 AP Hoi 

Ent RETUEH 


ESAA REM ENCERCLEMENT 

ESAS GOSUE SAGE 

E518 PRINT "UOUS L'AUEZ EUI ERAUO" 

ES2a PRINT “IL UOUS À FALLU "3TIRS;" TIR 
ES39 PRINT "ET VOUS L'AUEZ FAIT EN ";TENM 
PS; MINUTES", "LEFT" 

ESA GeTENPS#125.67 

ESS PRINT “UOTRE SCORE “sl 


SSER IF GRECORD THEN RECORD=i 

6574 PRINT "LE RECORD EST ":RECORD 

ESS PRINT 

E596 PRINT TAPEZ 1 POUR REJQUER,2 POUR 
ARRETER" 

SEE INPUT 8 

6616 IF A=i THEH 16 

ESA PRINT “4 LA PROCHAINE CAPITAINE" 
GES ENC 

ABS RE MOUUEMENT JOUEUR 

F616 PRINT "COORDONNEES GE VOTRE TIF® 
rasé PRINT MUERTICAL., 3; 

FE36 TRAP F6: INPUT SITRÈF 46695 

FH35 IF S£2 OR S59 THEN Fa 

FAdf PRINT CHORIZONTAL. ° 

FESe TROP FES: INPUT R: TREP +568 

FES IF R<Z OP RSS THEN FHSE 

FABS IF QCR,Si=1i THEH SG69sREM DESTRUCTI 
ON DE L' ENHEN , FIN DE PARTIE 
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Prg IF ACR,S3=2 THEN FRINT "SECTEUR DEJ 
A DETRUIT'SFOR P=SG6 TO 255: SOUNC 4,F,18 
s1S:HEXT PISOUND 8,8,8,n 

FA IF ACR,S2=E THEN RETUFH 

F1 HÉR,S = 

F711@ FETURH 

8688 REM AFFICHAGE 

GAS PRINT CHR 125 à 

934 PRINT 

“a 4 PRINT î---—-DEGRE DE DANGER SENTI FA 
*ENNERI "5H" 

9 PRINT _"OCEROULEMENT ee LA BATAILLE: " 
"LE RECORD EST DE "RECORD ’ 
E 


Lt LE 


“ POSITION DE L'ENNEMT "5N5" 


At LUI 


"TEMPS: "rsTEMPS;" TIRS:EFFE 


RIHT 

RINT "15345672910" 

FOR Ezi TO if 

OR si TO 8 

F ESS OP ESS OR EE OR I 
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IF Mk, THEN PRINT MES: SOUND & 
HE Ed, 16415 
EG IF Hiksdizi THEN PRINT EAP Pre 
TO & STEP —-1:SOUND G,P,124155 NEXT 
168 IF HK.43=s THEN PRINT ME EDR P=4 
4 TO & STEP —-2:SOUND 6,P,8,15: HÉUT 
2198 SOUND @,8,@,@:MNENT J 
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Réussirez-vous à résoudre ce superbe puzzle ? En voici les 
règles : 

Vous devez impérativement placer vos quatre premiers 
carrés de couleur aux quatre coins du puzzle (01, 10, 16 et 
25). Les carrés doivent se toucher horizontalement ou 
verticalement mais pas en diagonale. 

Deux carrés de même couleur ne peuvent se toucher. Vous 
devez réussir à placer les 25 carrés de cette façon. 

Les carrés sont numérotés comme suit : 


03 ns ee 
04 | 08 QUE 
09 15 21 


[oi 


Il est inutile de taper la touche RETURN. Attention, 
l'ordinateur vous surveille : si vous faites un placement 
interdit, il vous le signale au moyen d'une sonnerie. 
Lorsque vous ne pouvez plus bouger, tapez "99". 
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as 
ue 


PUZZLE EN COULEUR 
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GRAPHICS 18 
à POKE 704,12 


[ERA ? 
PÈOÉE FES: 
POFE FAE: 
PÈÉE FH: 
PÈRE FH: 
POKE FE 
COLOR 


15H84 


D cr el ra OM ga Col pag D pu 


rt cn cu 


qu 
es. 


41098 pou LL 
LA» ee 
Æ 0 
mio = 
TR 
WA] 
ie] I 


48 La 


115 LS 
I 
Î D a | 
1 T1 
Il 
Lx] 
Len) 
Le 


po bete pute te pute 
ne 
Ex 


cl CT NT a el fa tt à 


dE CU den Et RU 
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288 FÜR : i TO 25 

218 REQD Kite Ke ET ms qe ED tr 

226 NEËXT #8 

58 DÉTÉ 12,88, 29 609220 2989 2 20 » 199 
df DOTÉ 25,46,2S,6H,26 60.28.1868 
58 DOTÉ SI, ,20,36 40236268 
ER DOTÉ 26,00,26.106,36,126,36,14 
FE OOTS dd,4n,d4,68,dd,58,4d4,108 
SA DOTE dé, 126,52,68 82388002: 160 


DOTÉ 59,85 

FOR Pi TO 2SiICOLOR Si: PLOT Ki 
BIHEST E 
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COL=IHTÉ END ES 1e COLOR 1 
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+3: % 


COL=2 


PUZZLE 75 


FL=YL+É COL=4 35 BL=EL + CÜLES à 
313 IF COL=1 AND R3S THEN R=S:GOTO 311 


DE bete 


au 


us fs Les ETTUel ce Col cu à 


œil cuj ET) € 
+ ba Er fu 
Len Œ - un DD RES DOTE 


2e 


7 


ir in À; 


Ne RES ES 
TARA 


mn fu Æe eus Le Cas lient Ceg CT £a à 


a pu 


IF COL=Z AND GS THEN GES: GOTO 311 
5 IF CO=S AND B5S THEN B=5:G0TO 311 
6 IF COl=4 AND LS THEN Y=S: GOT 311 
IF COL=S AND BL3S5 THEN BL=S:GOTO 311 
dé P=G TO 16: PLOT F,8:DRANTO P,285H 


SET #i,KET:KEY=KETr-45: KEY=KET#18 
GET H#i,KEYZ:KEY=KEN+KENZ-4S 

IF KÉEY=93 THEN 2608 

IF EEv£1i OR KEVSHES THEN PRINT CHRCE 
1: S0TU 354 

à LOCHTE #6 KEY ef KE 2e 

IF C£é THEN FRINT HRSC252): GOTO ZE 


IF KÉEy<si sh ÉEY< +14 OND KEr<:iE6 EH 
RES? Es AND K£d THEN PRINT CHAI AS FE 
1F 1 THEN K=S5 

7 IF KEY=i OR KEY=in OR KEY=I6 OR KE'r- 
THEN E=K+1s51IF K=d THEH JE 

Az KEY: de r='ré KE" +16 

LOCATE £—bareci 

LOCATE : +6 Pa et NL 

LOCATE Kaowv-ir, C3 

LOCATE on à 


A LOCATE K+63T30s 
39 LOCATE K+6v+17206 
A LOCATE K2V+17,C0r 
à LOCATE #-6,7+17,08 


IF Ci= =COGL OF CESCOL OR CE=CCUL Oh Cé= 


| OR CS=COL OR Cé=COL OR C7=C0L DR CS- 


THEH 77 CHERE POSTE SOTO EE 


PE ar C126 46 CI=E Hé CIE 46 CF=6 1 


5 à 
=É Ci=f 4e CEE: + CS ii CF=E 
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Re Do e AND K54 THEN PRINT CHR$i 253 
Q 2 

COLOR COL 

= KEY 3 = KE 5 

FOR P=g TO 7 

PLOT K+F,7 

DRAHTO #+P,7+19 

NEXT F 

IF R+5+B#7L+BL=25 THEN 1698 

i NO=HO+1: GOTO 311 

FOR G5=295 TO 5 STEP —5 

FOR P=G-: TO G+3 

SOUND 6,P:18,15 

NEXT PF 

POKE 764,6 INTÉ RND6 GRIS K16 78 
NEËT G 

. BRAPHICS G:SETCOLOR 2,9,23:SETCOLOR 


s Le 

CO 

NA] in 
Den] 


pe LT en ON cn ET pe Le ge 
Dal Fan tt or Mi Pi ue a il SA co =, 
a de) Pen tete de CG A CE cm 
den ë Den ne UT Et ‘ 


ie 


ee co co Ut cn dl) 


mo j CT 


"POSITION 4,12 

+ "ERAUOQ LE PUZZLE EST RESGLU® 
POSITION 4,13 

POKE 7521 

FR RAR RERO ERREUR 
FOR P=4 TO 255 

SOUND 9,P,18,15 

NEXT F 

SOUND 6,9, 

ENG 

FOR G=4 TO 256 

SOUND 6,G216/15 

POKE Fh4,5-2 

NEXT G 

SOUND 9,9,9,@:POKE 764212 
GRAPHICES GiPOKE F5, 1 

POSITION 19,12:POKE F19,3#16+4 
+ "PAS DE CHANCE — UN AUTRE" 


D : 


it 0 
A nt te 


bob pou ob po bob jus bo j 
s] Ta UN fs el pe (51 
6 D co 


lat Co 
Lo 


à 


Er 
EN Es tel Fo 


te 


À HR oRwEmnmn pus jou Het pus Æn pue tt pes bb pue bot 


a 

‘ ‘ 

mi ch £ 
Ron 


WA 
in 
EU ut 


en CO 1 4] 
E « 


ro Po po FO pa M pa 
ee EE 
Fist 

ot 


sy ral 


Fu 

+ 
ini 
[EX] 


PUZZLE 


POSITION 1M,13 
FO MEENAEMENAENE 
FOR P=h TO 2644 STEP 28 
SOUNDC G,P,1B,1S2NEXT P 
SOUND 6,9,9 79 


5 MIQUS EN AUIEZ ":25-Nô;" à PLACER 


3 END 


77 


MISSION 
SPATIALE 


Voici l'un des programmes les plus intéressants de ce 
livre. Les mouvements des différents éléments apparaissant à 
l'écran sont écrits en langage machine, ce qui permet une 
vitesse supérieure à celle du BASIC. Vous êtes le commandant 
d'un vaisseau qui navigue dans une galaxie lointaine ; ayant 
été touché par un météore, vous devez à tout prix rejoindre 
le vaisseau principal afin de réparer vos avaries. 
Attention, il ne vous reste que 300 litres d'oxygène. 

Utilisez le manche à balai pour manoeuvrer votre vaisseau. 
Si vous réussissez votre arrimage, la quantité d'air qui 
vous reste viendra accroître votre score. Ceux que les sous- 
programmes en langage machine intéressent trouveront le 
listing après le BASIC. 


SSION SPATIALE DE F.EUNNE 


JOHETHAN LITNCENT 


INITIALIS 
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63 SOUND CA 0, 3, 1SSPOKE 53275,R:AIR=388 
FE X=USRE 1536 

89 IF PEEKS FPS14+R#2S56 24 THEN 1998 

QG IF PEEKCS 325434 OR PEEKCS2868 58 T 
HEN GOTO 2998 

198 OIR=AIR-1:IF AIR<:HA THEN F8 

116 POSITION 4,657 "air epuise":SC=f 
115 POKE 53251.,9 

124 FOR P=6 TO 466 STEP 12 

138 SOUND 9,P,18,1S5:NEXT P 

148 SOUND G,6,6,6 

158 POSITION 4,6:7 "tapez START" 


155 POSITION 4,417 "scores ";SC 

164 POKE 33273-1 

174 IF PEEKCSEZFONÉSE THEN 166 

158 DE 4,6:7 " “:SOSUB 1 
Bit: GOTCG £5 

ie IF PEEKX 299 » »PEEKK 207) AND PEEKX 263 
XCPEEKS 26 : THEN 16428 

1919 GOTO 2968 

1424 POSITION 4,6:%7 "bravo 

1925 POKE 53251,8 


1626 FOR P=226 TO 16 STEF —-i6 

1948 FOR «=P-5 TO P+5 

14564 SOUND 6,%,16,15 

1966 NET # 

14976 SETCOLOR 1.RND45#16,15 

1456 NEXT F 

1936 SOUND 4,5,9,2 

1199 POSITION 21,457 "bonus en air: "AIR 
1114 SC=SC+HAIRIGOTO 156 

2084 FÜR P=F81 TO S9GSIF PEEKCREZSE4PXK 5 
24 THEN HEXT P 

OS PE 5:251,8 

2816 E=S3r ds POLE P+2S6ER+RNDE 6 5348 ,PEEKK 
E : ñ 

EE SOUND G,PEEKCE ï2821S3POKE F6 ,PEEK 
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23 IF 5256 THEN 28if 

ASE SI2SR, GI POKE SES i 8 

FE ISC=S: GOT 148 

16606 GRBPHICS Gi: Di =PEEKC SE HSSESPEEKTS 
GISI POKE 52,8 

18616 POKE DOL+S,F:POKE OL4S,6:POKE DOL+F: 
E:POKE DOL+S. 6: POKE OL+S,E 

18028 SETCOLOR 4,39:4:SETCOLOR 1,35,4:POKE 
OL+if.6 

i8n26 SETCOLOR 8,3,8:SETCOLOR 1.13.16 
infdf CRE RER POKE Pass 

19958 % " "3 

14455 $ EX CERENX "3 

IS 7 "VOUS: . de L'air #3 

ienre T7 Met DEUEZ rejoindre #3 

LOUSD T "le Vaisseau Mere " ; 

18498 7 " ,..B0NHE CHANCENII "3 

18188 R=PEEKS 186 3-8: RESTORE 


18118 FOR P=RESSEHSIZ TO RÉZSE+1624 
18124 PÜKE P.B:NEXT P 

1@124 FOR P=i@ TO 17 

19144 READ 4,B 

18158 POKE R#2S6+512+PF.H 

19168 POKE RK2SE+5484+P,E 

14174 NEXT F 

14156 DATA rF,224,62,124,111,246 
18198 DATA 255,2952214.187 

16284 DATA 124,62,68,68,4,32 

14216 FOR P=& TO F 

18234 READ À 

1N226 READ 8 

19236 POKE RK256+768+88+P.4 

14244 HEËT F 

16258 DATA 24,69,26,60 236 » 126 2 99 2239 


1Q266 FOR P=6 TO 6 

19276 REHD À 

14288 POKE RÈ256+596+58+P.h 

14294 NEXT F 

18388 7 CHR$E 1253: COLOR 168: PLOT 6,29:DR 
ANTO 29,26:7 CHRS$C166 0): POSITION 6,6 
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18314 PÜKE F94,3#16 
14224 POKE 745,8#1€ 
18338 POKE F95,15#16+19 


14246 POKE FHF,3#IE +4 

169359 POKE S32Fr 23 

14264 POFE 559,46 

19374 POKE 53245,114 

14286 POKE 523249,12E6 

14338 POKE 53258,143 

16444 POFE 52256, 1 

16418 POKE 532571 

14424 POKE 52256, 1 

16438 POKE 53253, 1 

i6ddf POKE 625,1 

18455 POKE 54279,R 

16464 DATA 24,66, 1262952200: 656 

164FS POKE 283,118:POKE 284,125 

POKE 2698, INTCRHNOE 1 YÉEZMHIIPOKE 249, 
EE 

9455 K=RKZSS+FSS:POKE 266, INTÉK-256 3: PO 

FE 245:K-C2SÉ6XPEEKC 2GE à 5 

144936 RETURH 

26990 FOR A=15365 TO 16F6:REND B:PÈOKE 8,8 

:NEXT À 


2661 DATA 184,165,268 2011229318 9238 7 
263 2 220 2 204 9 165 2 264 9 SO 9 LOG 8 AE 9 LA 5 169 2 1 
2133288 176239r0r198 

26692 DATA 293,198,264, 165,203, 291,08 7 24 
Bodo 169820 1233 8 206 5 1638 263 9 141 263200 165 
264,141,1,:2%99173s 128 

24863 DOTÉ 2,241,11,246,16,173,1243 222841 
Pr rS sr 69 2s6r 19820209» 03 t2sBr230 sr 209 
,165, 209,141 

26644 DATA 2,248,173,132,2 201 28248211 
SPL CS PCT EEE CS PES LPS ET ETS | 
r21Wr141%195 

CAGOS DATA 2,165 3209 » 141 22 2 209» 159% 1381 
Armelle 20e 136 1453 205: 26692 
GE 519202082439 76 

26696 DATA 146,6,168:6 2177 2 209 » 208» 14532 
O5 2 1363 136 1923 60 286 0 249 96 

24867 RETURN 
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Listing du sous-programme en assembleur 


14 $=#f648 A418 H2 LODA HOR3 
cW 3 a424 STA 53258 
SA 3; 4435 LDA +254 

4 HOR1=$CE a44n CMF #4 

SA HORE=SECC 459 BEN ON 

68 LF=#$D6 G464 LDA #4 

FA HOR3=#01 ä4rg STA 53251 
88  PLA A4ea STA +024 
GG  LOA LF 5499 JMP NH 

199 CAP #1 asaa ON LOA 52776 
G114 BEG RIGHT 851 STA 747 
G124 LEFT INC HORI aSs2G LOA HORS 
41:34 INC HOFE 4539 STA 53251 
3148 LDA HOR2 aS4g LDA #13û 
G154 CMP #246 9558 STAR $D298 
91569 BHME Hi aSEAa LOT #4 

G@1°4 LOA #1 6578 A61 LODA <#CD),Y 
6159 STA LF GSe4 CET 

4194  JMF Ni 4598 STA <#HCD),7 
9299 RIGHT DEC HORI aGaa  INr 

4214 DEC HORE 8618  INY 

4224 LDA HORI GEAR CPY #4 

G2:4 CMP #54 96538 BNE A561 
924 BNE Mi 4644 QJMF N5 

@254 LOA #2 4559 N4 LDYT #9 
626 STA LF a6Ea AGZ LOA £$CD0:,7 
4274 Ni LOA HGF 1 9679  INY 

A2S4 STA 53248 AESA STA CHCOd, 
G294 LOA HORE 95938 DEY 

9:99 STA 53249 4744 DEY 

&az1@ STICK LDA 4276 n71à CPY #n 

9329 CMP #11 4724 BNE AG2 
4334 BEG L Gr29 NS RTS 

6349 LDA $2r3 

4254 CMF #7 

5:69 BER R 

4374 JMF NZ 

9:34 L DEC HORS 

4299  JMP HE 

G4Gé F IHC HORS 


Ce programme court mais captivant se propose de tester les 
réflexes de deux joueurs. Lorsque le point lumineux apparaît 
sur l'écran, appuyez le plus vite possible sur le bouton 
rouge du manche à balai. L'ordinateur affiche le score et le 
temps du gagnant. 


RER #4 
REM #* 
RER 
DIF BE ZA 3, B#e 300 
+ MHOM Oli JOUELR 
F #NOM OÙ JOUEUR 
GRRPHICE 5 


FEFLEXES # 
DE F.EUNN ,; NOUEMERE 19S1## 


[RARES 


er 
Et al Et 


IS INPUT 
“3: INPUT E# 


AUS RENE 
Fr tes 


LI fa Æe day Cal Ce) Cal 


5 SETCOLOR 2,3,4 
A A=INTÉ RHDC VE Z AE +2 A 
Eÿ FOR L=i TO À 
FA IF STRIGCG)=Q THEN GOTO 1006 
84 IF STRIGCI 3-4 THEN GOTO 2066 
3 HEXT L 
188 COLOR INTÉ RNDC G KZ +1 
116 G=RNDC 6 né 70: E=RNDIE GTS 
12 PLOT A,B 
134 = 
145 = 
159 IF STRIGCH)=G THEN 3G0û 
164 IF STRIGC 14 THEN 46G6 
174 


GOTO 14 
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pe 


SRBPHIC: 
0 TOT*: 
GSRÉPHI 


ff 


3:75 °TRICHEURIUQUS APPUVEZ 
+1: GOT SG 
£ HPPUREZ 
op CURE 
_GRAPHICS 0  GABNE..… AUEC LH 


DE:- qu: SCIi=SC1+i 
SÉ1S -=if THEN EGA 
S SOTO SA 


eu Does DO 
+ + LD 


ne 1 


à DS De 


Er] 
Fe 
Lt 
+ 
mA 


ir 
QE 
po 
ii 
Fi 
Lun à 
bte 
A 
[NY 
in 
F 


EX 
ir! 
ke o 
L 
hi 
T 
+4 
ee 
Ent 
Dex] 
( 
[ 
#+ 
LI 
ITA 
FL 
111 
ZE 
+ M1 
à 
= 


N:fl bb SLRSSCES 


un. Lol mu ï 
un) GT CT pe 1 
s4[T) dr a 
nu 
[ess 
m1 
I 


1 

an ps CU CSI 
OL 
un À fui 
je 

En 

ut à 

she” 

ca 

NA 


EU du 
co UN St 1 


me me me mme mm EL 


à PRINT :PRINT 
F A$;" D: 


ste” 
à 
( Lx] ER 


EN en cn EN en En ee 
Et pa ! 

RS | 
se 
de 


DR] 

A, 

EX 
(] 


PRESSEZ LE BOUTON ROUGE PO 


à 7 

OUEÉ" 

396 IF STRIGÉGNERE 

sf FOR L=1 TO 1ABINEXT 
GA F3 | 


De 
En 

ee | 
MT 
[M 
a 


G “4 GOTO 4 
17 57 27 A$;" GAGNE LA PARTIE !!. 


ir 
er" 
us. 


5 7 :7 END 
GT :7:7:7 B$;" GAGNE LA PARTIE 1. 


45 3% 3 END 


J'irt 
En 
Eu 


J 
DE] 
DA] 

mil 


D = 
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